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I, @@ INTRODUCTION 


As INTRODUCTION TO THE PROBEEM 

In every battle ship the personnel should be organized 
such that the ship could provide a variety of functions 
and operate under different situations, in different 
environments. 

This personnel organization follows standards that each 
country consecrates and is based on the missions that each 
individual ship should be able to perform. This directly 
ade eeenee the number of men that serve on this ship, and 
the rank, the specialization and the skills of each member 
of the crew. 

Although there are organization tables, general rules 
for assignment, and records of the cHanaete aiaenee (rank, 
specialization, education, special skills, experience, etc.) 
of each member of the crew, the assignment of the duties to 
each member of the crew is sometimes a very difficult and 
time consuming job. The task is even more complex due to 
the requirement to cross assign personnel to additional or 
collateral duties, which are required under certain 
conditions. In this case the appropriate personnel have to 
be selected in a real time environment but under the. 


restriction that those absent from traditional jobs will not 
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be a detriment to the operation of the department in which 
they belong. 

Personnel changes are an annual occurrence, and during 
these annual reassignments, it is quite often the case that 
the new member of the crew cannot be substituted directly 
for the departing personnel in all additional duties. New 
members may have served in similar additional duties. 

If there is not enough time for the new member to be 
trained, these additional duties have to be reassigned among 
the other members of the crew until the training of the new 
members can be completed. 

see the initial construction and the reconstruction of 
these assignment tables are based on the existing records of 
Miempessonnel. The assignment process 1S a constant 
reexamination of these records. Existing lists and tables 
must be compared with the new assembled information. The 
reevaluation of the current assignment lists can take a 
considerable amount of time. 

The problem 1s critical both in large and small ships. 
In the first case, there are a eee number of personnel 
assigned and an enormous amount of records must be examined. 
In the Second case, that is in the case of small ships, the 
limited number of people that serve on the ship makes the 
assignment of the additional duties much more difficult 


Simply because of a large number of jobs, and limited people 


Eomrdl il them. 


et 


Finally, in the Hellenic Navy only officers and the non- 
commissioned officers serve on a permanent hasis, while the 
lower level personnel (seamen) serve for a standard (usually 
short)mperiod of time. Therefore, frometime foutime 
projection tables reflecting future needs in lower level 
personnel must be assembled and sent to Navy training 
centers for new personnel availability planning in replacing 
those finishing their service obligations. 

The purpose of this application is to substitute the 
traditional, manual way in which personnel records are used 
in a small battle ship for supporting personnel management, 
by ~~ use of 5 OL ee ou Ree database system that can not 
only provide the appropriate information for personnel 
management decisions, but also provide some solutions to the 
assignment problem in real time. 

Of course, personnel management must not be based solely 
on automated methods, or computer generated solutions. In 
this instance the human factor plays a very important role 
in this kind of data interpretation. 

However, it 1S much eres to have a guick basis from 
which to start the decision process than to start from the 
beginning with the full review process. 

A small ship has been selected as a model; it can easily 
be extended to the personnel assignment problem in a larger 
one. The construction of the sample database for represen- 


tation purposes is much easier, and no significant details 


ie? 


fpewenely to be Omitted Since the mature of the problem is 
the same in both large and small ships. 

A model of personnel organization according to Hellenic 
Navy standards will be used, but some details will be 
omitted, however, due to the unclassified nature of the 
research project. Also some organization modifications have 
been used in order to generalize the standards used by most 


Gemer cOUntries. 


In INTRODUCTION TO DATABASE CONCEPTS 

During the last fifteen years the use of database 
systems is dramatically increasing year by year. This is 
because a database system compared with a conventional 
digital computer has a number of advantages. 

Database processing enables more information to be 
produced from a given amount of data. When data 1s 
physically partitioned, as it is in file processing systems 
(Figure 1), information can only be derived from each part 
individually, and not derived from a combination of these 
parts. The use of a database eliminates this disadvantage 
allowing the production of information as a combination of 
different storage parts (Figure 2). 

The use of database processing has also the advantage of 
avoiding data duplication, or at least reduction of data 
duplication. This results in the savings of storage space 


and reduced processing requirements. 
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Figure |. The traditional File Processing System 
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Figure 2. Database Processing System 





In a file processing system each program used must 
Sometime SetTOLION Of athe fOrmab of the files 1 uses. 
Thus, the structure of files will be distributed across 
ie paedeloneprograms. When the structure offa file is 
changed, the appropriate changes must be integrated into 
other programs that use this file. In a database 
application the application programs are not concerned with 
the structure used for data storage. This function is 
assigned to the "Database Mangement System" and thereby 
achieving a program/ data independence [Ref. 1]. 

Finally, the use of database processing has the advan- 
eee ot better data management. Maintenance or updating of 
data can be much eaSier in a centralized database system and 
without (or at least with a minimum amount of) data 


duplication [Ref. 1]. 


‘oe DEFINITIONS AND TERMINOLOGY 

Before presenting a general overview of such a database 
system, some basic definitions and terminology should he 
provided. 

a) A “Database" is a shared collection of interrelated 
data designed to meet the varied information needs of 
an organization. 

b) A "Database Management System" (DBMS) is a software 
system that performs all user's requests (update, 


insert, delete, retrieve) for data. 


c) A “Database System" is a system to record and maintain 
information that is Significant to an organization in 
the decision making process. 


ibe) 


e) 


f) 


g) 


A "File" is an organized collection of records 
representing entities of the same type. 


A "Record" is a collection of data concerning one 
entity of a file. Each record has an identical 
oma ukchee 


A "Field" is a subdivision of a record and it contains 
aA unit of intoOrmacitene Tt 1s the Smallest unl eon 
named data. 


A “Key" 1S an attribute, or a set of attributes, whose 
value uniquely identifies each entity in a file. 


A "Data Definition Language" (DDL) is a specialized 
language used for the description of the database. 


A “Data Manipulation Language" (DML) is the 
programming language used to formulate queries or to 
write application programs for data manipulation. 


-A “Relationship" between files is an ordered list of 


these files. The relationship can be subdivided into 
the following three categories: 


(1) "One-to-one" relationship, when for each entity of 
a set of entities there is only one associated 
entity in another set of entities and visa versa. 


(2) "One-to-many" relationship, when for each entity 
of a set of entities there are many associated 
entities in another set of entities. 


(3) "“Many-to-many" relationship, when each entity of a 
set of entities can be related with any number of 
entities in another set of entities and visa 
versa. 


THE ARCHITECTURE OF A> DATABASES Ys UE 


It is apparent from Figure 2, that the most important 


element in the system is the Database Management System 
(DBMS). This system controls the sequence of actions that 
are taken to store or retrieve data from the database. The 


basic components of such a system are shown in Figure 3 
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Figure 3. Schematic diagram of s database system. 


(enclosed in dotted lines). In this” £igiives | Rete. 2) a 
schematic diagram of a typical database system is repre- 
sented. The non-shadowed rectangles represent software 
routines. 

Queries coming either from application programs or 
directly from a user are routed to the query processor. The 
query processor needs to know the structure of the database 
in order for the query to be interpreted in the context of a 
particular database system. Information about the database 
can be built into the query processor itself or it can be 
stored separately (as in Figure 3) in database description 
espcon fRef. 2] 

The processed query is passed to a collection of 
routines called the "Database Manager". The database 
manager must be able to perform the following tasks: 

a) To translate the query into terms that the "File 
Manager" can understand, i.e., into operations on 
files rather than on the more abstract data structures 
of the database description. 

b) To provide the appropriate security, so that only 

authorized personnel are able to access the data 


stored in the database. 


c) To validate the insertion or deletion requirements of 
a user query. 


d) To provide synchronization when multiple users attempt 
to access the database at the same time. 


The "File Manager" could be the general purpose file 
system provided by the underlying operating system, but in 


general it 1S a specialized file system able to handle the 
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complex file structures used to store the database 
Mitgmmation. cbeh complex structures are used to facilitate 
the rapid access and manipulation of data in the database 
(Ref. 2]. 

In a database system a variety of forms, or views, of 
data are defined. These views can be seen as different 
bevels of abstraction that are used for the description of 
this database system. From these views the most commonly 
used are those represented in Figure 4 [Ref. 2], i.e., the 
"External" view, the “Conceptual" view, and the "Internal" 
view. 

The "Conceptual" view, also called “schema" is the 
complete and logical view of data. In other words, 
regardless of how data is actually stored in its physical 
storage device, it is represented in such a way that can be 


understandable by a human. 


External view Conceptual view Internal view 


User "1 


group) View | fe 


User 3 
group2 
User : 














me.’ 


Canceptual 
database 





4 p 
DATABASE 





User . 
group n View n 


Figure 4. Levels of Abstraction in a Database System 


1S, 


But in general it is not desirable that every applica- 
tion program be able to access all the data in the database. 
So, another view is defined called "“subschema" or "External" 
view and it defines a subset of the schema to be seen by a 
given application program or a user. There may be more than 
one external view, and they can overlap each other. 

Finally, the third view of the data, called “Interval" 
view of "Physical" view is used to describe the form of the 
data aS it appears to a particular processing computer, 
i.e., how data is physically arranged, and how it is 
allocated to files. 

The following example makes the above distinction 
between viewsS more understandable [{Ref. l]. 

For a database system used by a bank, the "database 
schema", or the “conceptual” view, might include the records 
for customers, the records for the checking accounts, the 
records for the savings accounts, the records for the loans, 
and the credit records. 

Different "external" views, or "“subschemas", can be 
defined. One may contain the customer records and the 
records for checking accounts. This would be the "checking 
subschema". Another may contain customer, loan and credit 
records and thereby be the "loan subSchema" and so on. 

Finally, the "internal" view has nothing to do with the 


customers, loans, credits, etc. 7ebut 1t describes e ate aie 
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temuocdeenOw lt 1s physically arranged and how it is 


eloecactead Im files. 


E. DATA MODELS 

The real world associations of objects and events have 
to be represented as a "model", in order for this represen- 
tation to be understandable. The same thing is required for 
the data representation. The model used for the data 
representation is called the "data model" and it is an 
abstract representation of the data about entities, events, 
activities, and their associations. 

In the commercial database systems three kinds of data 
models are, in general, used. These data models are the 
"Hierarchical data model", the “Network data model", and the 
"Relational data model". Each one has its own features, 
advantages, and limitations. 

1. The Hierarchical Data Model 

In a hierarchical data model the data is represented 
as a set of nested one-to-many and one-to-one relationships. 

The tree structure is used, and an organization is 
viewed as a hierarchy of positions. Multiple tree 
structures can be used in the same database and each tree 
consists of a hierarchy of records. Figure 5 gives an 
example of a representation of data organized in a tree 
Sereueture. 

The advantage of this data model is its data struc- 
ture. The tree structure is well known and widely used in 
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Figure 5. A Hiersrchical date model 


[a 
Se 


Figure 6. A Netwark date madel 


22 


omy eOrener applications in addition to databases. The 
disadvantage is that this model cannot support the many-to- 
one relationship and, as a result, redundancy of data 
BEeCUrs. 

2. The Network Data Model 

The data in a network data model is represented by a 
set of record types and pairwise relationships ‘between these 
record types. 

The network data model supports the use of multiple 
one-to-many and many-to-one relationships between the same 
pair of record types, but relations that involve more than 
two record types are not directly permitted. In other 
words, the many-to-many relationship is not supported by the 
network models. 

The basic data structure in a network database is 
the graph and Figure 6 provides an example of such a 
Sumucture. 

The network data model can be viewed as an extension 
of the hierarchical data model, or the hierarchical data 
model can be considered as a special case of a network data 
model, because both models use as a baSic data structure the 
graph (a tree structure is always considered a special case 
of a graph). Neither can support the many-to-many relation- 
ship and only the network data model can support the many= 
to-one relationship. This is in fact the basic difference 


between a tree structure and a graph. 
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3. The Relational Data Model 
The relational data model differs from the 
hierarchical and network data model. The mathematical 
concept which the relational data model is based on is the 
set theoretic relation. Some definitions [Ref. 2] of this 
theory should be given at this point for better represen- 
tation of this model. 


a) Domain is simply a set of values, and it is written as 


D;- 

b) The Cartesian product of domains Di, Day D3, ers) 
which iS Written as Dae). beens er Set of anit 

il 2 3 n i 
n-tuples (U,, Une Ugr cee a) such that u, is in Di» 
u~ 1S In DAA andmsowone 
2 2 

Cc) A relation is a subset of the CarteSian product of a 
list of domains. 

d) Tuples are the members of a relation. 


Relations are represented as two-dimensional tables. 
Each row in such a table is a tuple, and each column corre- 
sponds to one component. Columns are given names called 
"attributes" and each column contains values about the same 
attribute. When attribute names are attached to columns of 
a relation then the order of the columns becomes unimpor- 
tant. The set of attribute names for a relation is called 
the "relation scheme". Figure 7 shows a representation of a 
relation. 

A relational data model represents data as a 
collection of relation schemes. Tables that are used to 


represent the relations must have the following properties: 
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a) 


b) 
Cc) 


d) 


Each column of such a table must contain values about 
the same attribute. 


Each column must have a distinct name. 
Bact row 1S distinct. 


The sequence of the rows is immaterial. 


Attributes 


@22e 2a 2% 2-4 


Tuples 





Figure 7. A Representation of a Relation 


The advantage from the use of the tables as a repre- 


sentation method is that the tables are more understandable 


than the graphs or the trees. In addition to its mathemati- 


eeleepadsis, a relation data model differs from a hierarchical 


or a network data model in the following points: 


a) 


b) 


eC) 


All the types of relationships (one-to-one, one-to- 
many, and many-to-many) are supported by this model. 


The query languages that are used in this data model 
allow the manipulation of data as groups and not 
procedurally as one record at a time. 


Finally, the relational data model provides more data 


flexibility since relationships need not be predefined 
during the design phase. 
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If. ANALYSIS 


According to the traditional approach fen a Sottware 
development, systems development can generally be thought as 
having two major components: systems analysis and system 
design. 

System analysis is the process of gathering and 
interpreting facts, and using the facts to improve the 
existing system through better procedures and methods. 
System design is the process of planning a new system to 
éapneee Or complement the old one (Ref. 3]. In other words, 
analysis specifies what the system should do, and design 
states how to accomplish the objectives. 

The first step of the analysis phase is the system study 
which includes the accumulation of all existing information 
that leads to the need of a new system development as well 
as the collection of all problems related to the system in 
use. 

The description of the existing situation and of the 
problems related to this situation is very important for two 
tasks of the analysis phase. 

First, if the existing problems are well described, the 
requirements for the new system can be stated silyeyerailse 


unambiguously and exhaustively. 
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Second, it is much easier for the person who has the 
Beaiority £O acept Or not the starting of a project, to 
determine if the elimination of the existing problems and 
the proposed improvements Satisfy one or more of the reasons 
feuds PrOovecE initiation. 

Accordig to J. A. Senn [Ref. 3] the reasons for a 
project initiation are the following: 

a. Greater processing speed 

b. Better accuracy and improved consistency 
Gueeraster information retrieval 

d. Reduced cost 

a Better security 

In general, all of the above reasons should be satisfied 
by the use of a new system, but it is in each organization's 
responsibility to decide how many of the above reasons 
should be satisfied in order to make the determination 1f a 
new system is reasonable to be developed. 

In the following parts of this chapter, the existing 
system will be described, an examination will be done of how 
many reasons for a project initiation are satisfied, and the 


requirements of the system under development will be stated. 


AG DESCRIPTION OF CURRENT SYSTEM 
As previously mentioned, standards exist for personnel 
organization in a battle ship so as to afford the ship the 


ability to operate under a variety of conditions. 
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According to the Hellenic Navy standards, which do not 
differ much from the standards used by other countries, the 
personnel in a battle ship are divided into two major 
categories. The first category includes personnel belonging 
to the "Deck" department and the second category includes 
the personnel belonging to the "Machine" department. 

Each department must provide a number of functions to 
the operation of the ship. These functions usually form a 
hierarchy of subdepartments within the main department. 

The "Deck" department serves all the needs of a battle 
ship from a war machine point of view and it includes all 
subdepenenemes partitioning this task, «1.2 cue 
"Communication" subdepartment, the "Weapons" subdepartment, 
the "Combat Information" Subdepartment, etc. 

The "Machine" department serves all the needs of a 
battle ship from the movement and repair point of view and 
it includes all the subdepartments whose functitons are 
related to these purposes, 1.¢., the subdepartment "Damage 
Control", the subdepartment "Electric Installation", the 
Subdepartment "Main Engines", etc. 

In larger ships, other departments exist. Among them 
are the "Supply" department and the "Sanitary" department. 
The functions of these departments are not at all ignorable. 
Small ships must have the appropriate personnel to provide 


the functions of these departments, but in an environment 
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whose personnel is limited, these departments do not exist 
aS individual departments. The personnel responsible for 
Supporting the real functions of these departments are, in 
general, attached to the "Administration" subdepartment of 
the "Deck" department. 

Table I shows the subdepartments that each of the main 
departments include. Since the model of a small ship will 
be used in this study only the "Deck" department and the 
"Machine" departments are represented. 

Also in Table I, the "Administration" subdepartment is 
considered to belong to the "Deck" department. This is not 
exactly the case since the "Administration" subdepartment 
must have access to all personnel in a battle ship. The 


reason for this representation is that the supervising 


TABLE I. 
CLASSIFICATION OF DEPARTMENTS AND SUBDEPARTMENTS 


DEPARTMENTS 
Die Ea MACHINE 


ADMINISTRATION DAMAGE CONTROL 
WEAPON ELECTRIC INSTALLATION 


COMBAT INFORMATION 
COMMUNICATION MAIN ENGINES 


NAVIGATION SPG&RE PARTS 














FLECTRONIC EQUIPMENTS 





SUBDEPARTMENTS 
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officer of this subdepartment is the Executive Officer of 
the battle ship who belongs to "Deck" officers. 

Each subdepartment provides a number of functions. For 
this reason several jobs have been identified and assigned 
to personnel belonging to this subdepartment. Because each 
person has to provide not only a specific job, but a group 
of related jobs, "job position" descriptions are used as a 
subclassification of the subdepartments. Each job position 
in general, includes more than one job, but it is assigned 
coer Single person. 

From another point of view, personnel are divided into 
— categories based on their rank: officers, non- 
commisioned officers or petty officers, and the lower level 
personnel which will be referred to as seamen. 

The personnel of each category are divided into a number 
of subcategories according to specialization of each person. 
Table II shows the three categories of the personnel 
according to those ranks, as well as the Specializations 

that each category includes. 

The specialization assigned is based on the education 
and training levels of each person. These specializations 
remain with an individual throughout his entire military 
career. 

These two classifications, that is the classification of 
the job stations of a battle ship in departments and 


Subdepartments, and the classification of the personnel 
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TABLE It. 
PERSONNEL CLASSIFICATION ACCORDING TO SPECIALIZATIONS 


CS SUH PS Sis N.C. QFFICERS SEAMEN 

WEAPON USER WEAPON USER 
WEAPON CONTROL} WEAPON CONTROL 
COMMUNICATION | COMMUNICATION 

WEEK GF EICER NAVIGATICN NAVIGATION 
RADAR USER RADAR USER 
SANITARY SANITARY 
SURRY Stim Y 
ELECTRICIAN ELECTRICIAN 

ENGINEER ELECTRONIC ELECRONIC 
ENGINEER ENGINEER 


rad 
(a 
ee 
I 
NJ 
—J 
{ 


SRE eo | 





according to individual specializations are related to the 
duty assignment problem. 

Table III shows the relationship between the subdepart- 
ments belonging to the "Deck" department, and personnel 
specializations. 

The "Administration" subdepartment does not require 
any specialization of its personnel. In general, the 
appropriate personnel are distributed across other 
Subdepartments. 

In entries for both non-commissioned officers and for 
seamen the word "ANY" is written to indicate that there is 


no need for a specific specialization in this position. 
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TABLE 


RELATIONSHIP BETWEEN “DECK” DEPARTMENT 
AND PERSONNEL SPECIALIZATION 






SUB DER eeslignmey tS 
ADMINISTR. JARMIAMENT [COMBAT INFO. | COMMUNICAT | NAVIGATION 


DECK OFFIC. | DECK OFFIC.| DECK OFFIC. | DECK OFFIC. | DECK OFFIC. 


a aaa 
as SSE. lL. 
| ANY WEAP.USER | WEAP.CONTR. | COMMUNICAT] NAVIGATION 
Jsanitary [ PRADARUSER | 
: a ee ees 
t__— [O WEAP.CONTR. | COMMUNICAT] NAYIGATIGN 
caumaey | |i CwdC 
surly) | ae 
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DEPSRT MENT 
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SPECIALIZS TION 
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Usually persons with high levels of education, as for 
example persons of "Sanitary" or "Supply" specialization, 
are attached to this subdepartment because the physical 
subdepartments do not exist. 

The same Situation exists in the "Machine" department, 
and the relationship between the subdepartments of this 
department and the personnel specializations is indicated in 
Table IV. 

The exception here is the "Spare Parts" subdepartment, 
but again it is assembled by appropriate personnel | 


distributed over other subdepartments of this department. 
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TAGLE IV. 


RELATIONSHIP BETWEEN “MACHINE” DEPARTMENT 
AND PERSONNEL SPECIALIZATION 









ELECTR 
STencincer [encweee [evcineer ENGI 
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SPECIALIZATIONS 


EAMENM 


fecreician| 
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MACHINE DEPARTMENT 
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Up to this point the procedure of assigning the 
appropriate personnel to the appropriate departments and 
Subdepartments is straightforward and not difficult, except 
in the case of assembling the "Administration" and the 
"Spare Parts" subdepartments. Even then the selection of 
the appropriate persons ee be easily accomplished. 

Therefore, each person of the crew iS assigned to a 
specific department and subdepartment, and the officer who 
manages the subdepartment, is responsible for the assignment 
of specific jobs to each member of his subdepartment. He 
fomalsomemarged with providing for the training of the 
personnel for which he is responsible, and the cooperation 


of his subdepartment with the other subdepartments. 


Sis. 


The Executive Officer of the ship is the supervisor of 
all the subdepartments belonging to the "Deck" department, 
and the Chief Engineer of the ship supervises the subdepart- 
ments which belong to the "Machine" department. 

There are differences between the operation Gemembattle 
ship and the operation of a commercial organization, where 
personnel arrive each morning, work for a specific period of 
time and leave until the next working day. A battle ship is 
an Organization which must operate on an “around the clock" 
basis. Personnel are usually divided into shifts to cover 
the entire day. 

Shift Structures are not the same in all cases. For 
example, three 8-hour shifts, with equal number of persons 
in each one, usually suffice for the daily and routine work 
in port and during periods at sea with no threats, levels of 
alert or exercises. During periods of increased activity, 
as for example during exercises, two shifts, again with 
equal number of persons in each one, are required for ship 
operation. At times all personnel are called to duty when 
any kind of threat or level of alert exists. To plan for 
all three cases, job assignment is complicated by cross 
assignment of personnel. It must by necessity be done in 
advance. 

In addition to the above, there are times when specific 


conditions oceur which-réequire thace special purposeugrcupe 
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must be assembled to facilitate temporary functional 
requirements. This further complicates job assignment since 
the absence of these personnel from their normal positions 
must not interrupt, even temporarily, the operation of the 
department, or subdepartment. 

Related to the task of job assignment, is the completion 
of regular monthly, semiannual, annual, and "upon request" 
personnel reports. Some of them are simple and only require 
information stored in a single file. But some are compli- 
cated and require a time consuming examination of a variety 
of documents in order to extract the required information 
BOF ORE report. Some of these reports are critical for the 
current and future operation of the battle ship and must be 
complete and accurate. For example, the tables reflecting 
the future needs in lower level personnel must be maintained 


and available upon request. 


Be PROPOSED IMPROVEMENTS OVER CURRENT SYSTEM 

All the previously described tasks are currently 
provided manually. Therefore, the following improvements 
can be achieved by computer automation: 

a) The processing speed will be much higher. 

b) Improved accuracy in data retrieval can be achieved if 
the criteria for the job assignments is carefully 
described and taken into account in the application 
programs. Also in the case of reports and listings 
the possibility of information omission is eliminated. 

c) The retrieval and listing of information will be much 


faster, easier and real time. 
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In a military environment, the cost of the manually 
provided functions cannot be easily estimated. 
Therefore, cost reduction as a requirement cannot be 
considered in the improvements of the existing system, 
except in terms of time. On the other hand, the 
monetary cost of installing a computer system is 
considered not significant since the proposed system 
will be designed so as to be supported by a 
microcomputer. 


The level of security afforded the personnel informa- 
tion can be improved according to organizational 
requirements (in this case according to the security 
rules on a battle ship). 


The previously mentioned possible improvements lead to 


the decision that this project 1S reasonable to start. It 


Satisfies the requirements for project initiation as stated 


in the beginning of this chapter. 


Cz 


SYSTEM REQUIREMENTS 


The system must be able to satisfy the following 


requirements so that the previously defined improvements can 


be achieved: 


a) 


It must be able to store any information about 
personnel on a battle ship that 1s currently stored on 
papers. Actual storage may be different from the 
traditional organization in a files point of view, but 
some modifications in storage are necessary to avoid 
data duplication. 


It must be able to provide any stored information or 
any combination of stored information upon request. 


It must include sufficiently defined criteria so as to 
provide solutions for the job assignments as accurate- 
ly, effectively, and equitably as possible. 


It must be easy to use, or useable by personnel 
without special computer knowledge or skills. 


It must be Supportable on a microcomputer system. 
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Peeeeseve th TCATIONS OF THE BATTLE SHIP THAT WILL BE USED AS 
A MODEL 


1. Personnel 
Sixty-three men will be considered as ship's company 


on a battle ship. These men are divided into the following 


categories by rank: 
a) The Commanding Officer 


Bpyeesuxemore Officers. Four of them are Deck Officers and 
two Engineers. Each one must be able to manage one or 
more subdepartments within his specialization. 


c) Twenty-one Petty Officers. Four of them are Master 
Chief Petty Officers, three Senior Chief Petty 
Officers, three Chief Petty Officers, three Petty 
Officers lst Class, three Petty Officers 2nd Class, 

- and five Petty Officers 3rd Class. All Petty Officers 
are assigned to subdepartments according to his 
individual specializations. 


d) Thirty-five Seamen. These men are assigned to 
subdepartments according to their specialization. 


pao Characteristics 
From the armament point of view, the battle ship 
that will be used as a model for this application is 
equipped with the following weapons as shown in Figure 8. 


a) Three 3" Automatic Guns. These guns are controlled by 
the central armament control console or locally by 
individual control consoles. They are referred to as 
GUN 31; GUN 32, and GUN 32. 


b) Two 40mm Automatic Anti-Air Guns. These are also 
controlled by the central armament control console or 
locally by a user, and will be referred to as GUN 41 
and GUN 42. 


c) Two Groups of Surface to Air Missiles. These will be 
referred to as A/A MISSILES 1 and A/A MISSILES 2, and 
are controlled by their own firing and control 


console. 


a7) 


t 
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GUN 31 





ASA MISsiLes YS 


A/A&A MISSILES 
GROUP | 


SS GROUP 2 
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GUN 41 
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SS. MISSILES %S& = S.S. MISSILES 
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TORPEDO TORPEDO 
TUBE 1 SL ey er 


Figure 6. Model ship's weapons arrangement. 


h) 


3) 


DWwe™=GEeoupseOf Surface to Surface Missiles. These will 
be referred to as SS MISSILES 1 and SS MISSILES 2, and 
Gl@emaso CONELFOlIedmay their own individual consoles. 


Room -Uetace tOwsuttace Torpedoes: These will Be 
considered as controlled from the central armament 


Comcrol console and will@be referred to as TORPEDO! 
and TORPEDO2. 


One Long Range Radar. This will be used for air 


target detection and will be referred to as the AIR 
RADAR. 


One Medium Range Radar. This will be used for surface 


target detection and will be referred to as the 
SURFACE RADAR. 


Another Medium Range Radar. This will be used for 


navigation purposes and will be referred to as the 
NAVIGATION RADAR. 


. One Tracking Radar. It will be considered as 


cooperating with the central armament control console. 


Additional Equipment. These additional equipments 
include anything remaining that is required to fulfill 
the mission of the battle ship. For example, the 
communication equipment, the ESM (Electronic Support 
Measure) equipment, the ECM (Electronic Counter 
Measure) equipment, etc. 


From the machine or power plant's point of view, 


the model is equipped with the following: 


a) 


Two Main Engines. Each one is installed in one of two 
engine rooms. The operating indicators-and their 
controls are installed in the engine control room. 
These engines will be referred to as MAIN ENGINE 1 and 
MAIN ENGINE 2. 


Three Electric Generators. These three generators 
provide the required electric power for the operation 
of all electrical equipment on the ship. They are 
referred to as ELECTRIC GENERATOR 1, 2, and 3. 


Two Electric Power Distribution Tables. These are 
used to distribute the electric power to the 
appropriate destinations and they will be referred to 
as ELECTRIC POWER DISTRIBUTION TABLE 1 and ELECTRIC 
POWER DISTRIBUTION TABLE 2. 


he) 
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According to the traditional definition of the design, 
when it is referred to the software development, it is the 
translation of requirements into ways of meeting them. 
Systems design proceeds through the two phases: the logical 
design phase and the physical design phase [Ref. 3]. 

The systems logical design consists of the description 
of its features, that 1s the deseripeiemmoe Che outputs em 
inputs, the files, and the procedures, all in the manner 
ppeeemecee project requirements. 

The systems physical design is the set of activities 
following the logical design. It consists of a model for 
the production of a working system, that is the production 
of a system that accepts input from the users, processes 
data, and produces the appropriate reports. 

In this chapter the logical design of the system under 
development, the features of the database management system 
that will be used, and the hardware requirements will be 
represented. The physical design of the system will be 
represented in the following chapter as "Implementation" of 


the system. 


A. LOGICAL DESIGN 
According to the requirements of the system, as 


previously stated at the end of the previous chapter, it 
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must be usable by personnel with very little knowledge about 
computers. 

Therefore, the architecture of the system should be 
based on a sequence of menus and submenus which lead the 
user to the appropriate action. Figure 9 shows the 
architecture of such a menu driven system. 

1. Classes of System Operations 

The system will provide the following four classes 
of operations. 
ae) MoOdafications Of gthe ExistingeData 
The user of the system should be able to insert 
a new record, to delete an existing one and to modify any 


record in the supporting system files. 


MAIN MENU 





Figure 9. The Architecture of a "Menu Driven" System 
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b. © Crew Al loeaeron 
The system should be able to provide different 
types of crew allocation. For example, it must allocate the 
crew into two or three shifts, and to assign members of the 
crew to the appropriate positions during special alert 
conditions. The type of crew allocation should be user 
selected from the appropriate submenu. The criteria used 
for each type of crew allocation will be described with the 
corresponding application program. 
Cc. PErOductiongot Repomes 
A number of application programs will support 
the auhre: aOn of retrieving necessary information on 
personnel from the database and producing the appropriate 
lists and reports. 
d. Assistance Operations 
Although the above operations can satisfy the 
requests of the system, an additional function related to 
the tracking of modifications that have been done to the 
supporting system files is necessary. This audit trail will 
be contained in a file “Spy" in which any modifications of 
the supported files will be recorded with the time, the 
date, and the user's name. This file should not be accessi- 
ble through the main menu or any submenu for security 
reasons. Also system access security should be provided at 


system start-up through a password control system. 
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he Use! £1 be waiiecontaim user(s) character s— 
mies ana GOEreSponding password(s). A second file "“STATIST" 
will accumulate the information on members of the crew that 
are deleted for any reason. Neither file should be 
accessible through the menu system. 

2. The Output Reports 
Before describing the supporting system files, it is 
desirable to describe the required outputs. This can help 
to better understand and organize data into the supporting 
system files, which in turn supports avoidance of data 
aupeaeecation . 
: The required system output reports in the form of 
tables and lists are the following: 
elmeeecrew allocation into 2 shifts 
b) Crew allocation into 2 shifts 
c) Crew allocation for surface alert 
qd) Crew allocation for air alert 
e) Crew allocation for general alert 


f) List of men available to participate in some special 
purpose groups during one of the above alerts 


g) List of personnel that serve in the battle ship in 
some user defined order 


h) List of the personnel with those current service time 
in the ship 


i) List of the personnel with their home addresses. and 
phone numbers 


j) List of the personnel allocated into departments 


k) List of the personnel allocated into subdepartments 
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3. Required Input Information 
In order to provide the previously described output 
reports, the following information must be input to the 
system. 
a. Personnel Information 
Each member of the crew in the battle ship has, 
in addition to his name, a serial number, a rank, a job 
specialization, a home address, and a home phone number. 
Also he has a specific date in which he has been received on 
the battle ship and a date that he will finish his service 
obligations (in case he belongs to lower level personnel) or 
he aie depart from the ship for another tour of duty. In 
the latter case the date of departure is not always known in 
advance, but 1s announced a few months before the departure. 
The above information about the personnel is 
enough for the GenstructionPo& Ene pori6odic rcpe ac 
previously described. However, for job assignments 
additional information is required. 
b. Job Position Information 
In order for the assignment of job positions to 
be successful in the various cases, first the description of 
the job positions must be included in the input information. 
Additionally, the specialization and rank of the required 
crew member must be stated. Finally the hierarchical 


structuring of the departments and subdepartments along with 
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the specializations of the personnel that each one requires 
must be stated. 
4. Description of the Supporting Application Files 
The following files should be used in order to 
include all required input information. 


a. Personnel File 


Structure for file: CREWMEMB 





FIELD NAME TYPE WIDTH 
Ol SERNO GC 5 
02 NAME c Is: 
03 RANK C 4 
04 SPEC Ce 4 
05 INDATE DATE 8 
06 OUMDATE DATE 8 
Oy: ADDRESS c 20 
08 PHONE G 8 


joy Ranks File 


Steucture .£:or Erileors -RANKS 


PLE be NAME TYEE WIDTH 
Ol RANKCODE S A 
02 RANKNAME e is) 
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c. Specialization File 


Structure formal. SPECIALT 


FIELD NAME TYPE WIDTH 
Ol SPECODE C 4 
02 S PECNAME € fn 
we SUBDPCODE c 4 


d. -Sudepartment File 


Structure for file: ™ SUBDEEA 








FIELD NAME ieee WIDTH 
Ol SUBDPCODE 6 4 
OZ SUBDBNAME c 15 
03 DEPCODE S 4 
e. Department File 


Structure for £1 Per epeeArty 








AIS IID) NAME TYE WIDTH 
Ol DEPCODE c 4 
02 DEPNAME Sc 10 


f. Alert File 
The alert file contains the positions that 
should be filled during a general alert with the 
requirements for rank and specialization of the individual 


who will fill each position. 
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Steruaecture for files WALERT 








FIELD NAME TYPE WIDTH 
O1 POSCODE G: 4 
02 DESCR @ 5 
02 REQS PEC ‘e 4 
04 REQRANK S 4 
g. File Containing the Crew Member's Requests for 
Leave 
Structure for file: REQLEAVE 
FIELD NAME TYPE WIDTH 
UL SERNO S 5 
Oe REMLEAVE1 N 2 
03 REQUEST 1 DATE 8 
04 REQILDUR DATE 8 
05 REQUEST 2 DATE 8 
06 RECZDUR DATE 8 
h. File Containing the Users' Name and 


Corresponding Passwords 


Structure of files: USERS 





AL chJEAB) NAME yer: WIDTH 
O1 PASSWORD © 6 
U2 USERNAME c 18 
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1.) USpy =e igke 


Structure for firve. 9 Sex 


FIELD NAME TYPE WIDTH 
Ol DATE DATE 8 
02 TIME € 5 
03 USERNAME e 18 
04 JOBDESCR 6 12 
05 PROGNAME C | 10 


j. File that Contains the Information on Members 
of the Crew that Have Been Deleted from the 
Ship's Organization for Any Reason 


Structure for vil lLecweeo TAL irs. 








FIELD NAME TYPE WIDTH 
01 SERNO C 5 
02 NAME , @ 18 
03 RANK C 4 
04 SPEC é 4 
05 INDATE DATE 8 
06 OUTDATE DATE 8 


Description of the Codes Used in the Supporting 
Application Files 


a. Codes for Ranks 








CODE NAME 
ee A COMMANDER 
FE ZO LT. COMMANDER 
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lone 


Codes 


Be ou 


FF40 


BESO 


Pr iG 


Be 20 


PF 30 


PF40 


PESO 


PF60 


SMTO 


rEMmmspecializaticon 


CODE 





DOOL 


DOO2 


D003 


D004 


DOO5 


D006 


DOO7 


D008 


E001 


E002 


E003 


LIEUTENANT 
LIEUTENANT JG 
ENSIGN 

MASTER CHIE PO 
SENIOR CHIEF PO 
CHUbE See 

Pow lst CLASS 

PO 2ND CLASS 

PO 3RD CLASS 


SEAMAN 


NAME 





DECK 


WEAPON USER 


WEAPON CONTROL 


COMMUNICATION 


NAVIGATION 


RADAR USER 


SANITARY 


SUPPLY 


ENGINEER 


ELECTRICIAN 


BEECTRONIC 


Cas 


dad. 


Cre 


Codes for Departments 


Codes 


Codes 


CODE 





DOOO 


M000 


for Subdepartments 


CODE 
D100 
D200 
D 300 
D400 
D500 
M100 
M200 
M300 
M400 


M500 


for Alert Positions 


CODE 





0001 


0002 


0003 


0004 


Ves 


0006 


0007 


0 


NAME 
DECK PeIye 


MACHINE OP. 


NAME 
ADMINISTRATION 
WEAPONS 
COMBAT INFO 
COMMUNICATIONS 
NAVIGATION 
MAIN ENGINES 
DAMAGE CONTROL 
BeBCTRIC INSTAL 
BEECTRON. —EOUILP 
SPARE PARTS 

CEOSCODE) 

DESCRIPTION 
COMMAND OFFICER 
NAVIGATOR 
NAVIG. RADAR 
HELMSMAN 
Heo RIDGE COMM. 
UHF BRIDGE COMM. 


BEET OBSERvisk 


0008 


0009 


0010 


OO 


0012 


0013 


0014 . 


0015 


0016 


0017 


0018 


0019 


0020 


COZ 


0022 


0023 


0024 


H025 


0026 


0027 


0028 


0029 


0030 


HO St 


0032 


aul 


RIGHT OBSERVER 
Cles0 PERSO 
AIR RADAR 
SURFACE RADAR 
TRACK RADAR 


Cres COoMMUNTCAT. 


CENTR WEAP CONT 
GUN 31 CONSOLE 
31 AMMO SUPPL1 
31 AMMO SUPPL2 
GUN 32 CONSOLE 
32 AMMO SUPP1 

32 AMMO SUPPL2 
GUN 33 CONSOLE 
33 AMMO SUPPL1 
33 AMMO SUPPL2 
GUN 41 CONTROL 
GUN 42 CONTROL 
TORPEDO TUBE 1 
TORPEDO TUBE 2 
A/A MISS CONTR 
A/A MISS TELEPH 


A/A MISSILES 1 


UOGs 


0034 


0035 


0036 


0037 


0038 


0039 


0040 


0041 


0042 


0043 


0044 


0045 


0046 


0047 


0048 


0049 


0050 


0051 


O02 


0053 


0054 


0055 


0056 


O05 7 


52 


A7 PeMNSSILES —2 
SS Miss CONTR 
SoeMiss TELEPH 
Sse MISSIEES 
So Miss Tihs ae 
RADIO, ROOM SUP 
TBiGE EY PE 
TEDETYPE 2 

HE COMMUNICAT 
SURGSROOM SUPER 
SURG ROOM 1 
SURG ROOM 2 
SURG ROOM 3 


ENG CONTR ROOM 


MAIN 


MAIN 


MAIN 


MAIN 


ENGI 


ENGL 


ENG2 


ENG2 


ASS1 


ASoa2 


ASS1 


ASS2 


ELECTR GENERAT1 


ELECTR GENERAT2 


ELECTR GENERAT 2 


DiS ketABLE 1 


Dist LADLE 2 


DAMAGE CONTROL 1 


DAMAGE CONTROL 2 


0058 DAMAGE CONTROL 3 


0059 DAMAGE CONTROL 4 
0060 DAMAGE CONTROL 5 
0061 DAMAGE CONTROL 6 
0062 DAMAGE CONTROL 7 
0063 DAMAGE CONTROL 8 


B. SOFTWARE REQUIREMENTS FOR SYSTEM IMPLEMENTATION 

The dBASE III, which will be used for the implementation 
of the personnel management system under discussion, is a 
relational DBMS (database management system) for micro- 
computers. 

It contains itS own extremely powerful programming 
language which permits the user to easily create his own 
application programs regardless of complexity. 

The most important features as well as the limitations 
of dBASE III, as described by E. Jones [Ref. 4] and A. 
Simpson [Ref. 5] are described below. 

1. Features of dBASE III 


a) Program/data dependence. Changes in file structure do 
not affect the application programs. 


b) Data can be easily updated. 


c) Date and Memo data types are provided. In addition to 
the common data types, such as characters, numerics, 
and logicals that are provided by other database 
management systems, dBASE III provides the "Date" data 
type which is a very powerful tool for dates 
management, and the "Memo" data type for managing 
texts. 
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d) Information saving. dBASE III can save information as 
disk files in nine specialized formats each serving a 
specific dBASE III processing need. 

e) Sorting and indexing capabilities. 

f) Creation and printing of formatted reports. 

g) Date arithmetic. 

h) Built-in high level DML language. 

i) Interface capabilities. The dBASE III allows 
interfacing with other software systems, l.e., 
SuperCalc, the Symphony, WordStar, etc. 

2. Limitations Of dBASE TIE 
a. Number of Records in Each File 
Each database file can have up to 1 billion 
eeorae maximum, and the maximum size of each file 1s 2 
billion bytes. 
b. Number of Fields in Each Record 
Fach record can have up to 128 fields. The 
width of these fields can be no longer than 4,000 
characters. 
c. Number of Database Files Open at the Same Time 
Ten database files can be opened at the same 
time, or fifteen files of all types. Seven index and one 
format file can be opened for each active database file. 
d. File Names and Field Name Lengths 


File names can be up to 8 characters long, while 


field names can be up to 10 characters long. 
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e. Active Memory Variables 
The maximum number of active memory variables is 


256. The total number of bytes for memory variables is 


6,000. 


All of the above values may be limited by the 


computer hardware configuration. 


C. HARDWARE REQUIREMENTS FOR SYSTEM IMPLEMENTATION 

The system can operate on a 16-bit microcomputer that 
uses MS DOS or PC DOS version 2.0 or newer, for example on 
aneewermePe, On an IBM PC/XT or any other 16-bit microcomputer 
fully compatible with one of the above mentioned 
microcomputers. 

256K of RAM memory is the minimum requirement of the 
Supporting database package. Although one disk drive can 
possibly be used, two disk drives is strongly recommended. 
The best configuration is one disk drive and one hard disk. 
A 10M hard disk is recommended because it is the most 
common, inexpensive, and reasonable configuration of a 
microcomputer. A hard disk is not required because of 
storage requirements, since all files and the application 
programs can be stored on a floppy-disk based system. 
However, it does greatly improve the execution time of the 
programs used in this application. 

Any 80 column printer able to interface with the above 


mentioned microcomputers can be used. 
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IV. IMPLEMENTATION 


The system's “implementation" or “Physical Design" is 
the set of activities following the "Logical Design", and 
it consists of the production of a working system, that 15s 
the production of a system that accepts input from the 
users, processes data and produces the appropriate reports 
[Ref 7) 2% 

One very important job during the development of a 
software product is the construction of the user's manual. 
eon it, only the creator of the system can use it. 

User's manuals differ in size and complexity according 
to the nature of the developed system. Therefore, user's 
manuals can be as simple as a few pages of notes about the 
use of the system, or as detailed as volumes of descriptions 
on the functions of the system. 

The system under development is a "Menu driven" system, 
in which the user is led to the appropriate operation 
through the main menu, the submenus and his answers to the 
questions asked by the system. But, to better support user 
understanding about what is taking place during the various 
actions of the system, a detailed description of the 
application programs is given in this chapter. This 


description is based on operational details rather than on 
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detamlWed structure of the application programs. It 


substitutes the user's manual. 


A. RUNNING THE SYSTEM 


The user of the system has to call the “MASTER PROGRAM" 
by 1tS name (DO masterpr). The first thing that this 
program does is to ask the user to insert his password. 
There is a file in the system named "USERS" that contains 
the user(s) name(s) with corresponding BASE NOTAIIENE 
Therefore, more than one user can use the system if desired. 
This file is not accessible to the user through the main 
menu. or eieouih the different submenus. 

If the user of the system insertsS an incorrect password, 
he is exited to the operating system after receiving a 
message that he 1S not an authorized user. If the user 
inserts the correct password, then the “MASTERPR" calls the 
program "MAINMENU"™ which presents to the user his choices. 


The icon of the main menu is shown in Figure 10. 


MAIN MENU 


EXIT TQ OPERATING SYSTEM 
UDATE SUPPORTING FILES 
CREW ALLOCATION 

LiSTS AND REPORTS 

EXIT TO dBASE II 





Figure 10. The Icon of the Main Menu 
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If the user's choice is "0" then he is exited to the 
operating system, and if his choice is "4" he is exited to 
GBASE III. The last option is for programmers when any 
modification must-be done in any of the application 
programs, and for the manager of the system when he wants to 
access information created by the system but unaccessible 
through the main menu and submenus. In all the other cases 
(choice l, 2, 3) the appropriate program is called, which in 
turn calls the corresponding submenu for further direction 
of the user through the different operations that the system 
can provide eco mam. 

A small routine named "DELAY" is frequently used in many 
of the application programs to produce a small delay of the 
messages on the screen. Without this delay the messages 


would not be viewable by the user. 


Be UPDATING THE SUPPORTING SYSTEM FILES 

When the user's choice from the main menu is "1" then 
the "MASTERPR" calls the program "UPDATEDB". This program 
controls the different options available to the user for 
updating of the supporting system files. 

The menu “SUBMENU 1", is represented to the user, as it 
appears in Figure ll. 

As presented in this submenu, the user has the following 


options: 
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eeetowexac into main menu by selecting "0". 


b) To insert new records in "CREWMEMB" file by selecting 
i) a 


Soe Oemocity records in “CREWMEMB" file by selecting "2". 
Gd} To modify records in “REQLEAVE" file by selecting "3". 


e) To delete records from "CREWMEMB" file by selecting 
its le 


SUBMENU | 


MODIFY RECORDS INTO REQLEAVE 
DELETE RECORDS FROM CREWMEMB 





Figure 11. The Icon of the Submenu 1 


1. Inserting Records into "CREWMEMB" File 

When the user selects the option of inserting new 
files into "CREWMEMB", the “INSCREW" program is called. 
This program calls at the program “SCREEN 1" which presents 
to the user's screen a frame in which all interactive 
procedures take place. 

The user is asked to insert the serial number of the 
new crew member to be inserted. If this serial aie: does 


not exist in the file “CREWMEMB", i.e., the new member does 


So 


not already exist, the system asks the user if he wants to 
see the codes for ranks and specialties. 

If the user answers affirmatively then the "INSCREW" 
program calls the program "“CODESCR" which generates a new 
frame on the user's Screen which contains the codes for 
ranks and specialties. 

The "INSCREW" program presents to the user for entry 
all the appropriate fields of a new record, with the 
exception of the field "“outdate." The disenrollment date 
for a crew member is in general not known at the time he 
reports to the ship. 

The program inserts the information into the 
"CREWMEMB" file, and prompts the user to update the file 
containing the requests for leave, that is the “REQLEAVE" 
file. The fields of the records of this file are presented 
to the user for input. The user may or may not eee 
information in this file at this time, however, a leave 
request record corresponding to the new member is created at 
this time. 

The system continues with multiple entries depending 
on the user's answer to the system's question "MORE 
INSERTIONS?". When the user has no other insertions to 
make, and he answers "No" to the question "MORE INSERTIONS", 
he is exited to submenu l, for selection of another option 


Or return to the system through the main menu. 
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At the end of the execution(s) of program “INSCREW" 
if any insertions have been made an entry in the "SPY" file 
1s automaticallly made with the user name, date, the time 
and the program name. 

2. Modifying Records in "CREWMEMB" File 

When the user selects the option to modify one or 
more records in the “CREWMEMB" file, the program "SCREEN 1" 
is called to install the interactive frame. The appropriate 
record is located by insertion of the serial number of the 
crew member whose record must be modified, and the 
modifiable fields are presented to the user. The enrollment 
Hee: of the crew member and his specialty are not presented 
because these fields cannot be changed. If the user wants 
help, he can see the codes for ranks by answering "yes" to 
the corresponding question, which causes the program 
"RANKSCR" to be called which generates a frame containing 
the appropriate information. 

The modified record is presented to the user a final 
time before he is asked for "MORE MODIFICATIONS", while the 
appropriate information is inserted into the "SPY" file each 
time a modification has taken place. 

3. Modifying Records in "“REQLEAVE" File 

When the user selects the option of modifying 

records in the "REQLEAVE" file, the appropriate record is 


located by insertion of the serial number of the crew member 
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whose record must be modified, the corresponding fields from 
a record contained in the “REOQLEAVE' £116 whoeheareemec ina) — 
able are presented to the user and an entry in the "SPY" 
file is made whenever any modification is made. 
4. Deleting Records from "CREWMEMB" File 

Finally, when the user selects the option of 
deleting a record from the "CREWMEMB" file, the selection 
sequence of actions is the same. When a record from the 
"CREWMEMB" file is deleted, the record for the crew member 
in the "REQLEAVE" file is deleted also. Information about 
the deleted crew member is inserted into the "STATIST" file 
Mey ic statistic purposes, and an entry in the "Spy" file is 
made. 

Other support system files can be updated, but these 
options are not available to the normal user of the system 


for reasons of information integrity. 


oe. PERFORMING THE CREW ALLOCATION 

When the user's choice from the main menu is "2" the 
"MASTERPR" calls the program “ALLOCATE". This program 
controls the different options available to the user for 
performing crew allocation. 

The program "ALLOCATE" calls the program “SUBMENU 2" 
which generates and represents to the user submenu 2,, as 
shown in Figure 12. 

According to this submenu, the user of the system has 
the following options: 
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a) To exit the main menu by selecting "oO". 


len) ite assign the appropriate persons into the appropriate 
position during a general alert by selecting "1". 


ey. To assign the appropriate person into the appropriate 
position during a surface alert by selecting "2". 


d) To assign the appropriate person into the appropriate 
position during an air alert by selecting "3". 


elon a locate the crew into two shifts by selecting "4". 


f) To allocate the crew into three shifts by selecting 
: : 5 e 


SUBMENU 2 


CREW ALLOCATION FOR AIR ALERT 
CREW ALLOCATION INTO TWO SHIFTS 
CREW ALLOCATION INTO THREE SHIFTS 





Figure 12. The Icon of the Submenu 2 


1. Crew Allocation for "General" Alert 
When the user selects the option of allocating the 
crew into general alert positions, the “ALLOCATE” program 
calls the "GENALERT" program. This program calls the 
program "SCREEN2" which simply generates a frame on the 


user's screen with program progress reports. 


6 3 


The program "GENALERT" creates two files named 
"TMPCREW" and TMPALERT" which are deleted at the end of the 
execution of the program "GENALERT". In the first file the 
"CREWMEMB" file is copied and in the second file the “ALERT" 
file is copied. 

Also the program "“GENALERT" erases all records 
contained in the file "GALERT". In this file the records 
resulting from a previous execution of the program 
"GENALERT" are stored, and they are deleted for storage of 
the records from the new execution of program "GENALERT". 

The file "TMPALERT" is used as a reference, and 
sequentially contains for each record of this file, 
information about the position that must be manned, and the 
required rank (reqrank) and required specialty (reqspec). 
"TMPALERT" file positions are matched with members contained 
in the "TMPALERT" file. 

If a person is found (having the required rank and 
specialty is located) his rank, name, and specialty are 
inserted in the file “GALERT" along with the position code 
and the position description. Otherwise the position 
remains unmanned, and the next position is examined. 

If, after all the positions contained in the file 
"“TMPALERT" have been examined and some remain unmanned, the 
user 1S informed that some positions remain unmanned due to 
a mismatch of the requirements and the personnel availa- 


bility. He is asked if he wants to proceed ignoring the 
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factor rank. If the user agrees only the specialty factor 
1s used for matching and, of course, only the unmanned 
positions and the remaining personnel are examined. 

Peo mtiecmencd of this. iteration, positions still 
remain unmanned and personnel are available, the user is 
informed and prompted to fill the remaining positions 
regardless of the rank and specialty of the remaining 
personnel. If his answer is "Yes" this task is performed by 
assigning, in sequential order, the remaining personnel to 
the remaining positions. 

If, at the end of this third loop, personnel remain 
unassigned, the user is asked if he wants to see these 
personnel. If he answers "Yes" then the available personnel 
are displayed to him. The same thing happens whenever the 
user rejects the solution when the required rank or 
Specialty is to be ignored. In this case only the positions 
which requirements match exactly with the available 
personnel are filled. The other positions remain unmanned 
and the available personnel are presented to the user for 
manual completion of the allocation. 

At the end of the execution of the program, an entry 
in the "SPY" file is made concerning the execution of this 
program. 

2. Crew Allocation for "Surface" or "Air" Alert 

The same scenario occurs when the user wants to 


perform a crew allocation for a surface or an air alert. In 
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the first case the program "SURFALERT" is called to perform 
the appropriate allocation and the file "SALERT" is used for 
storage of the records from the new execution of program 
"SURFALERT". In the last case the program "AALERT" is 
called to take care of the crew allocation for a surface 
alert condition and the file "AALERT" is used for storage of 
records from the execution of this program. 

The difference between the crew allocation for a 
general alert and the crew allocation in the last two cases 
is that some positions not required to be manned in each one 
of the last cases are deleted from the "TMPALERT" file 
(which contains the positions to be manned with correspond- 
ing requirements) before any processing takes place. 

3. Crew Allocation intogiwe soi @mes 

When the user selects the option of allocating the 
personnel into two shifts the program "SHIFT2" is called by 
the program "ALLOCATE". 

The program "SHIFT2" calls the program "SCREEN2" 
which in turn installs the screen frame for interactive use 
during the execution of the program "SHIFT2". 

The file "CREWMEMB" is copied into file "TMPSHIFT" 
and the records in this file are indexed on specialty and 
rank. Therefore, during the division of the personnel into 
two shifts, each shift will contain the same or almost the 


Same number of persons of each specialty and rank. The file 
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"TMPSHIFT" is erased at the end of the execution of the 
paagram “SHIFT2". 

Two more files are used and both are cleared of 
contents at the beginning of the execution of the program 
Soe) eee nese tiles are the “SHIFT2 A“ and the “SHIFT2 B™ 
files. Both contain records resulting from the execution of 
micmpLogtam “SHIFT 2". 

The indexed file “TMPSHIFT" is used and the members 
of the crew are divided into two shifts, i.e., the first 
Memvetwlintou shift A, the second into shift B, the third into 
shift A again, the fourth into shift B, and so on. As 
previously mentioned, the members of the crew in the file 
"TMPSHIFT" are already sorted according to specialty and 
rank. The results of the division, therefore, does not 
differ much according to specialty and rank of the members. 
When the allocation is finished, options are given to the 
Meermtom view one of the two Shifts or both on his screen. 
When he does not want to see the shift listing anymore, he 
selects the "exit" option which exits to the submenu 2 for 
performing another option or for exiting from the system 
through the main menu. 

Again a corresponding entry in file "SPY" is made 
for the transaction. 

eer ey Aiocacion into Three Shifts 
The similar routine occurs when the user selects the 


option to allocate the personnel into three shifts. In this 


On 


case the program "SHIFT3" Is called @tospe cane cre required 
allocation and the results from the execution of these 
program shifts are inserted into three files names 
"SHIFT3 A", "SHIFT3 Bl), and ceimienvemesue 

A small routine named “DELAY1" is used to provide 
the appropriate delay for screen presentations; and an entry 


in the “SPY" fille is made for the tramenction. 


D. PROCURING THE REQUIRED LISTS 

When the user's choice from the main menu is "3" the 
"MASTERPR" calls the program “REPORTER". This program 
controls the different options available to the user for 
producing the required ieee. 

The program "REPORTER" calls the program "SUMENU3" which 
generates and represents to the user the submenu 3 as shown 


in Figures 3. 


SUBMENU 3 


EXIT TO MAIN MENU 

LIST OF CREW IN SDME ORDER 

WiST OF REQUESTED INE Gir TRE 

LIST OF CREW OF A REQUESTED ERR Isiah... 2. 3 
LIST OF CREW OF 4 REQUESTED SUBDEPARTMENT 4 
LIST OF CREW ALLOCATED INTO 2 SHIFTS 

LIST OF CREW ALLOCATED INTO 3 SHIFTS 





Figure 13. The Icon of the Submenu 3 
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ReeOEaing to this submenu, the user of the system has 
the following options: 
ele to exmt into maingmenu by selecting "0". 


IS) To produce a list of crew sorted in some user selected 
Siuaetmuby selecting "1". 


c) To produce a list of crew containing only the desired 
information by selecting "2". 


d) To produce a list of specific department members by 
Seoec tics 3. 


e) To produce a list of specific subdepartment members by 
selecting "4", 


melo produce a list of crew allocated into two shifts by 
seleeting "5S". 


aero Produce a list of crew allocated into three shifts 
byeselectingm'6"™. 


jee to preguce a list showing the ship's organization 
during a surface alert by selecting "7". 


1) To produce a list showing the ship's organization 
during an air alert by selecting "8". 


J) To produce a list showing the ship's organization 
during a general alert by selecting "9". 


All of the above lists are produceable either on the 
user's screen or on his printer, as selected. 

1. List of Crew Sorted in Some User Defined Order 

When the user selects the option of producing a list 

of crew members sorted in some order, the "REPORTER" program 
calls the "LIST 1" program. This program clears the file 
"ORDCREW", which will contain the records created during the 
program execution. The program "LIST 1" uses the file 


"CREWMEMB", which contains information on crew members, 
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and replaces the codes used for ranks and specialties with 
their corresponding names. 

The user is asked if he wants the list sent to his 
screen or to his printer, which assigns the appropriate 
value to a Boolean variable named "printer", used for the 
selection of the desired output device. 

The program "SCREEN2" is called which generates a 
frame on the user's screen. In this frame the user options 
are presented. By selecting one of the options the user can 
produce a list of crew members sorted on names, on ranks, on 
enrollment date, or on disenrollment date. 

At the end of the presentation or printing of the 
list the user is asked if he wants to repeat the process. 

If he answers affirmatively, the action is repeated, 
otherwise he is exited to submenu 3 for another option. 
2. Lists» of the Crew Containing Selected Information 

When the user selects the option of producing a list 
of crew members containing only selected information, the 
"REPORTER" program calls the “LIST 2" program. This program 
clears the file “INFOCREW", in which the records created 
during the program execution are stored, uses the file 
"CREWMEMB" and replaces the codes used for ranks and 
specialties with those names. 

The user is asked if he wants the list on his screen 


or on his printer and the program "SCREEN2" is called to 
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generate the user's option frame. By selecting one of the 
options the user can produce a crew members list containing 
names and ranks, names and phone numbers, names and 
addresses, and names, addresses and phone numbers. The 
lists of these groups are always sorted on names. 

At the end of the presentation or printing of the 
list the user is asked if he wants to view the list again or 
to make another copy; depending on his answer, he is 
provided again with the appropriate list or he is exited to 
submenu 3. 

3. List of the Crew Allocated to a Specific Department 

: When the user wants to produce a list of personnel 
of a specific department, the program "LIST 3" is called by 
the program "REPORTER". The procedures of selecting the 
output device, of presenting the options to the user, and 
noommul Gipme executsons of the program "LIST 3" are the 
same as the previously described cases. 

The file “DEPLST" is cleared and used for storage of 
the new records created by the program "LIST 3", and the 
"CREWMEMB" file is used to provide the required information 
of personnel. For each member of the crew contained in the 
"CREWMEMB" file, the code corresponding to his specialty is 
used for indexing. This code is used to search for the 
subdepartment containing this specialty. When the 


appropriate subdepartment is located, its code is used to 
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determine the department in which this subdepartment 
belongs. Finally, when the appropriate department is 
located, its name is inserted to the "DEPLST" file along 
with the other information of the crew member. 

When the desired lists have to be presented on the 
user's screen or printed, the distinction of the personnel 
in each department is made by the use of the department's 
name. The lists are sorted on ranks. 


4. List of Personnel Allocated to a Specific 
Subdepartment 


In this case the program "REPORTER" calls the 
program "LIST 4". This program controls the sequence of 
actions for the production of the appropriate lists. The 
procedure of production of the desired lists is almost the 
same as described above. 

The names of the departments are presented to the 
user in the option frame. After selecting a department, the 
subdepartments belonging to this department are presented to 
him. From these subdepartments he selects one for which he 
wants a listing. 

some of the subdepartments, as for example the 
"Administration" subdepartment, must be assembled manually. 
In this case, the system informs the user. Multiple 


execution of the program "LIST 4" is again one of the user's 


options. 
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5. List of the Personnel Allocated into Two Shifts 

When the user selects the option of producing a list 
of crew members allocated into two shifts the program "LIST 
5" 18 called by the program "REPORTER". This program has 
been constructed with the same logic as the previously 
described programs. However, a lot of processing on files 
and records is not required since the two shifts already 
Stee Oe etem=ertos “SHIFT2Z.A" sand “SHIFT2 BY“. The records 
in these two files need only have the codes used for ranks 
and specialties replaced with their respective names. 

This replacement is taking place under the control 
Of ene program "LIST 5", and the resulting records are 
Searmcdminmethe file “SHIFTLST" for the construction of the 
appropriate list. Lists provided by this program are sorted 
on specialty and rank of the personnel. 

6. List of the Personnel ee cedancs Three Shifts 

The program "REPORTER" calls the program "LIST 6" 
whenever the user selects the option of producing lists of 
personnel allocated into three shifts. And in this case, 
three files containing the appropriate shifts are used, 
Joan eAee'SHIFT3 B", AND “SHIFT3_C" files. 

Replacement of the codes used for ranks and 
specialties with their corresponding names must also be 
performed on these files, and the same methods used in 


program "LIST 5" are employed. 
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7. List of Ship Organization DUFING SUrtace = sews 

When the user desires a listing of ship organization 
during a "Surface" alert, he makes the appropriate selec- 
tion; the program “REPORTER" calls the program "LIST 7". 
This program uses the file "SALERT" to gather all the needed 
information, and the file "ALERTLST" to store the new 
records created during its execution. 

On this point the user must know that the informa- 
tion that he will receive is derived from the file “SALERT", 
which may or may not contain a complete assignment of 
personnel to all alert positions. This is because the user 
who avec uted the program "SURFALERT", from which the file 
"SALERT" is created, has the option to complete the 
allocation manually when a mismatch on ranks or on specialty 
occurs; in which case some of the required positions 
necessary during this alert “ane unmanned. If the user 
does not want to complete manually the allocation process, 
he has to execute the program "SURFALERT" to completion. 

8. List@er Ship Organization During ile. sere 

The same logic and programs apply here as were used 
in the previous repere 1rsting. Whe progmcane miotee ic 
called by the program "REPORTER". The file “ALERTLST" is 
used again for storage of the new records created during the 
execution of the program "LIST 8" and the file "AALERT" is 


used to provide the appropriate information. In the case of 
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unmanned positions the user must execute the program 
"AIRALERT" to completion through submenu 2, option 3. 
fee List Of Ship Organization During "General" Alert 

When the user selects the option of creating a list 
of ship organization during a "General" alert, the program 
"REPORTER" calls the program "LIST 9". This program uses 
the file "GALERT" to correlate appropriate information, and 
the file "ALERTLST" to store the results of its execution. 
If unmanned positions appear on the lists and the user does 
not want to complete the allocation manually he must 
reexecute the program "GENALERT", in which the file "GALERT" 


1s created, to completion through submenu 2, option l. 
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V. CONCLUSIONS AND RECOMMENDATIONS 


The purpose of this study was to develop a database 
system model, suitable for implementation within a battle 
ship, and able to aid in the personnel management in this 
environment. 

The main goal is to release manpower for other purposes, 
by increasing effectiveness, accuracy, and speed, of 
personnel management. Another goal was to provide solutions 


to the job assignment problem in a real time environment. 
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Three major factors influenced this study. The first 
one is the unclassified nature of it, which required the 
omission of details describing the problem. The second was 
the standarization of information describing the problem in 
order to more closely accommodate standards used by most 
nations. Lastly, the absence of previous work on the same 
subject has inspired its completion. 

As a result, the developed system must be considered as 
a prototype Oa which needs further modification and 


extension in Order to be used im a real timevenv)7,ommena- 


Although the system must be considered as a prototype in its 
present form, it is still able to substitute some manually 
provided and time consuming jobs, to produce a number Of 
reports, and to provide real time management decision 


i gli®lemeijaeic Ile >. 
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GBASE III 1s used as a database management system, 
because both the relational data model on which it is based 
and its high level programming language is very suitable for 
implementing such a system. 

The system is "menu driven". Therefore, it is not only 
easy to use but also easy to modify since both the user and 
the programmer are directed to the desired point through the 
sequence of menus and SclemeneS 5 

It 1s already mentioned that this system 1S a prototype 
model, but due to its ability of easy modification it could 
be the basis for future work which could cover all the needs 


for personnel management in a battle ship. 
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APPENDIX A 


A. MAIN PROGRAM AND MAINMENU 


**x* PROGRAM MASTERPR 
% This 1s the main program of the database system 


CLEAR 
SET TALK OFF 
SET DELIMITER OFF 
SET HEADING OFF 
SET EXACT ON 
PUBLIC psw 
STORE °? 7 TO psw 
@ 11,38 SAY * ENTER PASSWORD ==)’ 
SET CONSOLE OFF 
ACCEPT TO psw 
SET CONSOLE ON 
USE users 
LOCATE FOR password = UPPER (psw) 
IF EOF () 
SET COLOR TO W* 
@ 11,28 SAY ’? UNAUTHORIZED USER : 
DO delay 
SET COLOR TO W 
QUIT 
ENDIF 
CLOSE DATABASES 
STORE .T. TO continue 


DO WHILE continue 
DO mainmenu 
DO CASE 
CASE choice 
CLEAR 
QUIT 
CASE choice = 1 
DO updatedb 
CASE choice = 2 
DO allocate 
CASE choice = 3 
DO reporter 
CASE choice = 4 
CLEAR 
RETURN 


il 
ss) 


ENDCASE 
ENDDO 
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SET, FALK UN 

SET DELIMITER ON 
eel EXACT OFF 
SET HEADING ON 
CLEAR ALL 

RETURN 


TS 


**## PROGRAM MAINMENU 


CLEAR 
PUBLIC choice 
STORE @ TO cheilce 


i@ 7,18 SAY 7? TMMMMMMM MMM ei i iit iii iti i 


@ 16,18 SAY ’: 
@ 17,18 SAY ° HMMMMMMMMMMMMMM MMMM im 
SET COLOR TO W+ 

@ 20,30 SAY *ENTER YOUR CHOICE = 
GET choice PICTURE °9°’ RANGE 2,5 
READ 

SET COLOR sianU 

RETURN 


9 

: 
® 8,18 SAY ’: MAIN MENU :? 
@ 9,18 SAY ’: MMMM Mii >? 
@ 10,18 SAY ’: 7 
@ 11,18 SAY ’: EXIT TO OPERATING SYSTEM ...... Q 2? 
® 12,18 SAY ’: UFDATE SUPPORTING FILES ....... 1 :? 
@ 13,18 SAY ’: EREW ALLGGAGION:. ... .<seucceaee 2 2? 
® 14,18 SAY ’: LISTS AND REPORTS ..........-.- 4 7 
@ 15,18 SAY ’: EXT 1G. @BASE Til 2.226. co. 2 ee S 7 
3 « e 

oo 


=)? : 


*#*% PROGRAM DELAY 


STGRE]2 TOK 

DO WHILE k <¢ 40 
STORE k + 1 TO k 

ENDDO 

RETURN 
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B. PROGRAMS IMPLEMENTING THE UPDATE OPERATIONS 


*#*%* PRUGRAM UPDATEDE 


CLEAR 
sme * * FO updtcont 
PUBLIC updtcode 
DO WHILE UPPER(updtcont) # °N? 
DO submenul 
DO CASE 
CASE updtcode = @ 
STORE *N* TO updtcont 
CASE updtcode = 1 
DO inscrew 
CASE updtcecsode = 2 
DO modicrew 
CASE updtcode = 3 
DO madleave 
CASE updtcsode = 4 
DO delecrew 
- ENDCASE 
ENDDO 
RETURN 


SIE 


KEE 


CLEAR 


PUBLIC 
STORE 


ia 
( 
(a 
(a 
(x 


SET COLOR TO 


ia, 
lee 
12, 
13: 
14, 
1S, 
i6, 
ize 


18 


18 


18 
18 
18 
18 
18 
18 
18 
18 
18 


PROGRAM SUBMENU 


updtcode 

TO updtcoade 

SAY 7 I MMMMMMMMMMMMMMMMM MMMM MMMM a MMMM MMM MMM, ° 
SAY 7: SUBMENU 1 ae 
SAY 7’: MMMM MMMM =? 
SAY 7s: a 
Saya = EXIT .TO. MA TNSMENG) ccc: cveiecs cece eee MA) “2 
SAY 7: INSERT RECORDS INTO CREWMEMB .... 1 id 
SAY 7: MODIFY RECORDS FROM CREWMEMB .... & 2 
SAY ’: MODIFY RECORDS FROM REQLEAVE .... 3S pas 
SAY 7: DELETE RECORDS FROM CREWMEMB .... 4 — 
SAY 7s: aoe 
SAY 7? AMMMMMM MMMM MMM MM ei iM ime ¢? 


W+ 


@ 19,29 SAY “ENTER YOUR SELECTION ==)’ , 
GET updtcode PICTURE °9° RANGE O,4 

READ 

SET COLOR TO W 

RETURN 
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#*#* PROGRAM INSCREW 


* This program inserts new records into CREWMEMB file. 
* All other Files affected by the newly inserted record 
* are updated 


CLEAR 

STORE ’Y° TO ansr 

STORE .F. TO done 

USE regqleave 

INDEX ON SERNO TO reqleave 
USE crewmenib 

INDEX ON SERNO TO crewmemb 


* open he required files 
SELECT i « 

USE users 

SELEET < 

PSE spy 

si Sg ee 

USE reqleave INDEX reqleave 
SELECT 4 

USE crewmemb INDEX crewmentb 


DO WHILE UPPER(Cansr) = 7Y’ 
CLEAR 
DO screentl 
SET COLOR TO W+ 
f@ 3,14 SAY 7 INSERT NEW RECORD’ 
{a 4,14 Say === === = SS SS SS =! 
SE@ReeLaR TO W 


SVrTGRE * 7 TO sno 

STORE ° 7 TO nia 

STake. * 7 TO rnk 

SHBRE ’ 7 TO spe : 

SIORE * 7 TO idate, sdate, regi, rege 
Sune 7 7 TO addr 
Srneke ” 7 TO phn 

STORE 4 TO durl, dure,yrmliv 


@ 23,7 SAY ENTER SERIAL NUMBER ==)" GET sna , 
Pretinme * 99999" 


READ 

Sees ¢, ony * ’ 

FIND &sno 

IF EOF () 
STORE * °% TO ans 
@ 23,7 SAY *DO YOU NEED CODES? (Y/N) ==)’ GET ans 
READ 


m@ 20,7 SAY ’ . ’ 
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IF UPPER(Cans) = 7¥Y’ 


DO codescr 


ENDIF 

i £04, 7 SAY ’ 

@ S,3 SAY > NAME 5 Ge fy an 

@ 6,5 SAY * RANK CODE [GET rn 

@ 7,5 SAY 7SPEC. CODE :’ GET sp 

@ 8,5 SAY *ENROL. DATE :? GET id 

@ 9,5 SAY * ADDRESS :? GET ad 

@ 18,5 SAY * PHONE >? GET ph 

READ 

APPEND BLANK 

REPLACE serno WITH sno, name WITH 
spec WITH spc, indate WIT 
address WITH addr, phone 

STORE .T. TO done 

SELEC is 

SET COLOR TO W+ 

@ 12,13 SAY *UPDATE REQLEAVE FILE 

. SET COLOR TO W 

@ 14,5 SAY * REMAINING LEAVE => 

®@ 15,5 SAY ?ist LEAVE REQUEST :’? 

@ 16,5 SAY 71st LEAVE DURATION:?’ 

im 17,9 SAY *end LEAVES. eeuesl.: 

@ 18,5 SAY ’%end LEAVE DURATION:?’ 

READ 


APPEND BLANK 

REPLACE serno WITH sno, remleave 
requesti WITH CTOD(reqi), 
request2e WITH CTOD(reqac), 


EESE 
ia ¢cW@, 7 SAY 
DO delay 
i@ 2,7 SAY 
ENDIF 
@ <3, 7 SAY 
READ 
SELECT 4 
ENDDO 


7 RECORD ALREADY EXISTS 


3 


"MORE INSERTIONS? (Y/N) 
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=) 1 


kK 
= 


ate PICTURE ° 39/99/99" 


dr 
a) 


mm, rank WITH rnk,, 
H CYODCidatesy?, 
WITH phn 


b 


GET rmlv PICTURE 
GET reqi , 
PICTURE ° 939/337 33’ 
GET durl tC TreRee’ 22’ 
GET reqe , 

PICTURE. 25/7327 22° 
GE dura 2 fe Gere Se) 


799) 


WIV rmiv ss 
reqidur WITH duril,, 
reqedur WITH dure 


GET ansr 


* update SPY file 
IF done 
SEEBECT 1 
GOne TOP 
LOCATE FOR passward = psw 
SBEECT = 
APPEND BLANK 
REPLACE date WITH DATE) 
REPLACE time WITH TIME() 
REPLACE username WITH A-> username 
REPLACE jobdescr WITH ’ INSERTION’ 
REPLACE progname WITH ”* INSCREW’ 
ENDIF 


CLOSE DATABASES 

DELETE FILE reqleave. ndx 
DELETE FILE crewmemb. nd» 
RETURN 
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*#*#* PROGRAM 


CLEAR 
e 

id 
a 


u 


ry 
Me GwoOnnoFrul 
St ne Sn a 


r ll Al dll 


— be 
i Ye | 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


Sy Bias ae 


TMMPM PPP Me MMM MM MPM MMMM, 


9 
> 
3 
> 
3 
9 
9 
3 
4 
3 
4 
9 
3 
> 
q 
q 
> 


fi | a ws | wa 6h “wz ww 4 wa wi al x4] 


L os o6 oa ae oe a6 G6 a6 oe oa a6 Ga oe Gn oe oe oe Ge 


< 


MMMM MMM MMP MMMM MMMM MMMM 
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**« PROGRAM 


ig 
la 
ig 
ig 
ia 
ig 
ia 
@ 
iG 
la 
ia 
id 
id 
(a 
la 
ld 
te) 
Cc 
la 
lg 


2,45 
3,45 
4,45 
5,45 
6,45 
7,45 
8,45 
9,45 

10, 45 

11,45 

12,45 

13,45 

14,45 

15,45 

16,45 

17,45 

18,45 

19,45 

20,45 


21,45 


RETURN 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SA 
SAY 
SRY 
SAY 
SAY 
SAY 


EODESER 


TPR Be Beg Bd et Ded de ddd dd ddd td iid et, 


> RANK CODES 


BAD De De ed dd dd ddd dd Et < 


_Tt J6 


ENSIGN 


M CH 
Sen 
CH 
PO t 
PO e 
PO 3 
SEAMA 


PO 
EO 
FO 
CL 
CL 
CL 
N 
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9 
SFECTALIZATION :’ 
3 


DECK 
WPN USER:’ 
WEN CTRL:’ 
COMMUNIC :’ 
NAVIGAT. =’ 
ROR USER =" 
SANITARY :’ 
ENGINEER:’ 
FLEETRIC:’ 
ELECTRON:’ 


«3 
s 


«3 
bd 


«I 
= 


***% PROGRAM MODICREW 


* This program modifies recards into CREWMEMB file. 


CLEAR 
STORE *Y? TO arnsr 
STORE .F. TO done 
USE crewmemnmb 
INDEX 
SELECT s2 
USE users 
SELECT 
USE spy 
SELEET 


ca 
ae 


=, 


o 


ON SERNO TO crewmemb 


3 


USE crewmemb INDEX crewmermb 


DO WHILE UPPER Cansr) 
STORE * Ste 
DO screent 
SET COLOR TO W+ 
im 3,6 SAY 
@ 4,6 SAY ’ 
SET COLOR TO W 


— 
= 


a 
sna 


*MODIFY RECORDS 


3 


(CREWHEME Te lee)» 


mh mm ee ee 
ms mm me ce ee ee ee 


response, 


@ ¢-@,7 SAY ENTER SERIAL NUMBER ==)” GET sro, 
PICTURE *S325 7" 
READ 
i@ <M, 7 SAY ’ i 
FIND &sno 
IF .NOT] BOF 0 
* initialize memvars 
STORE ” 7 7S wai 
STORES 7 TO rrak 
STORE ’ 7 TO sodate 
STORE ’ > TO addr 
STORES * VO pinw 
* display choices 
STURE 4 TO response 
@& 3, 11 SAY ’FIELDS 10 SE Mebif eo: 
(a Se 12 Say 3? ===] ===] 
io Jaded SAY: 6° NAME: 42.256 ene ee eee 12 
@ 6,12 "SAY 7 (RANK 22.2 c.eeetereneeers = 
@ 9,11 SAY ® DISENKGL. DATE... 
@ 1M, 11 SAY °* ADDRESS .. 2.22... 47 
@ ii, il SAY ° PHONE ...2.2.- wens. oe 
@ 12,11 SAY * PHONE + ADDRESS . 6’ 
@ ©-@,7 SAY ENTER FIELD NUMBER ==)” GET 
PICTURE *93° RANGE 1,6 
READ 
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* clea 
e 35,8 
® 6,8 
@ 7,8 
& 8,8 
e 9,8 
@ 10,8 
@ 11,8 
Sic, & 
@ 20,7 
DO CASE 
CASE 
CASE 
CASE 
CASE 
CASE 
CASE 


r screen 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


a4 a4 4 42 4 & & & @ 
42 4 4 a4 « 4&4 wa @ 


response = i 
@ 35,5 SAY * NAME $8? GET nm 
READ 
@ 5,5 SAY ’? 
REPLACE name WITH mm 
response = 2 
STORE * 7% TO ans 
© 20,7 SAY 7DO YOU NEED CODES? (Y/N) 
GET ans 
READ 
@ 20,7 SAY ’? 
IF UPPER(Cans) = 7Y? 
DO rankscer 
ENDIF 
® 6,5 SAY *7 RANK CODE s* GET wrk 
READ 
@ 6,5 SAY ’ 
REPLACE rank WITH rnk 
response = 3 


@ 9,5 SAY ’DISENRL. DATE:’ GET cadate, 


PIETURE..” 337/997 353" 

READ 

a 9S SAY 

REPLACE outdate WITH CTOD(odate) 
response = 4 

@ 10,5 SAY * ADDRESS :’ GET addr 
READ 

@ 18,5 SAY ’ 

REPLACE address WITH addr 


response = 3 
™@ 11,5 SAY * PHONE =’? GET phn 
READ 


@ 11,5 SAY ’ 
REPLACE phone WITH phn 


response = 6 

@ 10,5 SAY * ADDRESS :’ GET addr 
@ 11,5 SAY * PHONE :? GET phr 
READ 


@ 10,5 SAY ’ 
@ 11,5 SAY’? 
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REPLACE address WITH addr 
REPLACE phone WITH phn 


ENDCASE 


STOR 


* 


rj 


1 fq fy to 


1 tw fo 
Ke Oouvuon mn Ue 


fo 
as 


Te 
ELSE 
@ 20 
DO d 
@ 20 
ENDIF 
CLEAR G 
@ 20,7 
READ 
CLEAR 
ENDDO 


* update SPY file 


IF done 
SELECT 
GO TOP 
LOCATE 
SELECT 
APPEND 
REPLACE 
REPLACE 
REPLACE 
REPLACE 
REPLACE 

ENDIF 


CLOSE DATA 


eee es 


Ss 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


whan a 


fl 


5 ¢ SAY 
elay 
77. Shy 


ETS 


SAY *MORE MODIFICATIONS? 


2 


TO done 


lay modified reccrd 


7 NAME :°> GET name 

7 RANK CODE :? GET rank 

> SPECIALTY :’ GET spec 

7 ENROL. DATE -’ GET indate 

7 DISENRL DATE :’ GET cutdate 

7 ADDRESS :’ GET address 

7 PHONE >> GET phone 

“ RECORD DOES NOT EXIST’ 

9 9 


FOR password = psw 


c 
BLANK 


Gate WITH DATE() 
time WITH TIME?) 
username WITH A-> usernane 


jobdescr WITH 


progname WITH *’ MODICREW’ 


BASES 


DELETE FILE crewmemb. ndx 


RETURN 
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CY/N) ==)" GET 


*>MODIFICATIUN’ 


ermsr 


*##* FROGRAM 


fal ‘go tq fat 


fat fal fai fat 


fat fol fal fot fo fa fat for fa 


cS 


@ 2 
in = 


Cn &) fu 
$e p 


12 


RETURN 


SAY 
SAY 
SAY 
SAY 
SAY 
SHY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


RANKSCR 


“a “a Se! 


ee ee” ee” rr | 


TMM MMM MMM ee a ie Mii, 


H 


CODE 
sie te, 
FFe0 
mi 

FF 44 
FFSG 
PF1id 
eas) 
Pr SU 
PF42 
PFS 
PFO 
oM1 


RANK CODES 


——o a ee ee ee 
eee cee ce ee 


COMMANDER 

LT COMMANDER 
LIEUTENANT 
LIEUTENANT JG 
ENSIGN 

MASTER CHIEF PO 
SENIOR CHIEF FO 
EHTEF FG 

PO ist CLASS 

PQ 2nd CLASS 

PO Srd CLASS 
SEAMAN 


MATT 


ok 


{ 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 


### PROGRAM MODLEAVE 


* This program modifies records into REQLEAVE file. 


CLEAR 
Ss lGRE 
STORE 


7Y? TO ansr 
-F. TQ done 


USE regqleave 


INDEX 


ON SERNO TO reqleave 


SEC ia: 
USE users 
SELECT oa 
USE spy 
SELECT 3 
USE reqleave INDEX regqleave 
DO WHILE UPPER(Cansr) = 7Y' 
sv me|S 7 TO sno 
DU screenl 
SET COLOR, TG 


(a 
ia 


3,8 SAY *MEBIFY RECORDS “(REGEERVe yee) 
4,8 SAY a ee ae ee ae oe ee ee ee ee 


SET COLOR TGaG 
i <4, 7 SAY ENTER SERIAL NUMBER ==)" GET sna, 
PICTURE 332025" 

READ 

l@ 2Y,7 SAY ’ . 
-TIND é&sno 


i 


NG hae ele ©) 

* initialize memvars 

STGRE 7 TO reqi, rege 
STORE 8 TO durl, dure 

* display choices 

STORE 8 TO response 

eo eS, Ut SAY *FIEEDS TO) Se Mey rerep: 
{a sey be LO SS SS SS SSS 


ia 7, 11 SAY * REGHES T ieee ..- ey 
i G5. 11 SAY 7 REG LDU ceceecs eee one 7 
it Sol teeeaAyY * REGUES ie) reer ereeeteee ae 
i TOs iesay  REGBSDUR 2c eeccee 4? 


@ 11,11 SAY *REQUEST1i + DURATION 5’ 

@ 12,11 SAY *REQUEST2 + DURATION 6’ 

@ 20,7 SAY ENTER FIELD NUMBER ==)" GET 
FICTURE °9° RANGE 1,6 

READ 


Je 


response, 


* 


clear 


fa! fai 
Cf 
i) 
Co 


‘ot 


fo) (ai Yar fg vad fae 
ny 
GMUrGWVOND 
“I @ 


CASE 


EASE 


CASE 


CASE 


CASE 


screen 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


at . | at Ss inal a 
a ia sail a ‘oft! ot sles a 


response = ti 

@ 5,3 SAY * REQUEST1 7 weGET req 
PleiuRe. 397997353" 

READ 

Bo, SAY” 

REPLACE request1 WITH CTOD(reql) 
response = 2 

@ 6,35 SAY * REG@1IDUR 7) GE sata: ! 
PLE TURE 935" 

READ 

ue 6.2 SAY’ 

REPLACE reqidur WITH durl 

response = 3 

@ 9,5 SAY * REQUEST2 :? \5bETs reqs 
ALEGRE 7 397559799" 

READ 

we 83 SAVY ” 

REPLACE requestce WITH CTOD(reqg2) 
response = 4 

@ 18,5 SAY * REGEDUR :? GE ipeatnc= 
PICTURES 799" 

READ 

@ 14,5 SAY ’ 

REPLACE reqedur WITH dure 

response = & 

@ 11,5 SAY * REQUEST1 >’ GET reqgl 
PleCtines. 259799/9977 

@ 12,5 SAY * DURATION -— 6EF duct 
PIECTURE. * 99" 

READ 

mii oeSsay ’ 

12a Seer 7 

REPLACE requesti1 WITH CTOD(reql) 
REPLACE regidur WITH duril 


response = G 

@ 13,5 SAY ’ REQUEST2 >’? GET reqe 
PRERURE °° 99799799" 

@ 14,5 SAY *’ DURATIONe AGE) dure 
PICTURE * 39” 

READ 


3 


@ 14,5 SAY ’ ? 
@ 14,5 SAY ’ ? 
REPLACE requeste WITH CTOD(reqde) 
REPLACE regqe@dur WITH dure 

ENDCASE 

STORE .T. TO done 


* Display modified record 


@ 3,9 SAY ’SERIAL NUMBER :’ GET serno 

© 6,9 SAY * REMAINING LEAVE :’ GET remleave 

@ 7,9 SAY * REQUESTI1 2’? GET requestl 

@ 8,9 SAY *REQUESTI DURATION :’ GET reqidur 

~ 9,9 SAY 7 REGUEST2 :’ GET requeste2 

@ 19,939 SAY *REQUESTeE DURATION =: GET regqedur 
SUSE 

@ 24,7 SAY ’ RECORD DOES NOT EXIST’ 

DO delay 

@ 24,7 SAY ’ ’ 
ENDIF 


CLEAR GETS 
@ 24,7 SAY *MORE MODIFICATIONS? (Y/N) ==>) GET arsr 
READ 
CLEAR 
ENDDO 


* update SPY file 
IF done 
SEEECT 
GO TOP 
LUCATE FOR password = psw 
SELEDiwa 
APPEND BLANK 
REPLACE date WITH DATE() 
REPLACE time WITH TIME () 
REPLACE username WITH A-) username 
REPLACE jobdescr WITH *MODIFICATION’ 
REPLACE progname WITH 7’ REQLEAVE’ 
ENDIF 


CLOSE DATABASES 


DELETE FILE reqleave. ndx 
RETURN 
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#*#* PROGRAM DELECREW 


* This pregram deletes records from CREWMEMB 
* as well as from REQGLEAVE file. 


CeEeAR 

STURE *Y? TO ansr 

Siere «Ff. FO done 

USE crewmermnb 

INDEX ON SERNO TO crewmemb 
USE reqleave 

INDEX ON SERNO TO reqleave 
SaeeeyT ti 

USE users 

SSece = 

DE spy 

SElLeECHr 3 

USE reqleave INDEX reqleave 
Serecyl 4 

USE statist 

SELECT S&S 

USE crewmemb INDEX crewmemb 


DO WHILE UPPER(Cansr) = 7Y’ 
CLEAR 


DO screenl 

Ser COLOR TO Wt 

Bees eaesayY "DELETE RECORD FROM CREWMEME’ 
{a 4,93 SQvit == 555 See 5 5 = = Sa ea ae See 
SET COLOR TO W 

Sake 7 7 TO sna 


Tile, 


@ 24,7 SAY ENTER SERIAL NUMBER ==)? GET sna , 


BuetwRe * 339797" 


READ 

@ 24,7 SAY ” 

FIND &sno 

Goaeem. OF () 
@ 5,5 SAY 7? NAME >’? GET name 
@ 6,5 SAY * RANK CODE :’ GET rank 
Heras) say * SPEC. CODE =:* GET spec 
i@ 8,35 SAY *ENROL. DATE =? GET indate 
@ 9,5 SAY *DISENRL.DATE:’ GET scutdate 
©®© 9,5 SAY * ADDRESS 2’? GET address 
@ 18,5 SAY * PHONE >? GET phone 


STORE *’ ? TO ans 

CLEAR GETS 

@ £3, 7 SAY ’ DELETE? (Y/N) ==)? GET ans 
READ 


IF UPFPER¢Cans) = ” 
SELECT 4 
APPEND BLANK 
REPLACE sernea 
REPLACE name 
REPLACE rarnk 
REPLACE spec 
REPLACE iridate 
REPLACE sutdat 
SELECT &S 
DELETE 
STORE .T. TO done 


ef | a 
FIND &srnc 
Lee NO een 
Sel CULor TOeW. 
"DELETE RECORD EROMeeaGLeny = 
SET COLOR TO W 


ENDIF 
ENDIF 


else 


@ 23,7 SAY 
DO delay 


td 
id 
io 
td 
\a 


3 9 Say 


14,5 SAY 
15,5 SAY 
16,5 SAY 
17,5 SAY 
18,5 SAY 


CLEAR GETS 


@ 20,7 SAY ” 


ENDIF 


@ 22,7 SAY 


READ 
SEEECT ss 
ENDDO 


IF done 
SELEGi aS 
PACK 
SELECT 4 
PACK 


*MORE DELETIONS? 


Y? 


WITH E->) serno 

WITH E-> name 

WITH E-> rank 

WITH E-> spec 

WITH E-> indate 
e WITH DATE () 


7 REMAINING 
71st LEAVE 
7ist LEAVE 
72nd LEAVE 
Pend LEAVE 


7 RECORD DOES NOT 
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a 


LEAVE 
REQUEST 
DURATION 
REQUEST 
DURATION: 


A wa L wa 


SxS 


ey Sih 
GET 
GET 
SE 
SEW 


remleave 
request l 
reqidur 
requeste 
reqcdur 


(Y/N) ==)? GET ansr 


* update SFY file 

SELECT 1 

GO TOP 

LOCATE FOR passwerd = psw 

Sees T = 

APPEND BLANK 

REPLACE date WITH DATE () 

REPLACE time WITH TIME () 

REPLACE username WITH A-) username 

REPLACE jobdescr WITH * DELETION’ 

REPLACE progname WITH * DELECREW’ 
ENDIF 


CLOSE DATABASES 

DELETE FILE crewmemb. ndx 
BELETE FILE reqleave. ndx 
RETURN 


oF 


C. PROGRAMS SUPPORTING THE CREW ALLOCATION 


#*#* PROGRAM ALLOCATE 


* This program allocate the ship crew into =& cr Ss shifts 
* and performs the ship manning according to alert type. 


CLEAR 
STORE * * T0 allcont 
PUBLIC alicode 
DO WHILE UPPERCallcant) # 7N’ 
DO submenu2 
DO CASE 
CASE allcode = a 
SIiURE VN SO al.com. 
CASE allende = i 
DO genalert 
CASE alleccde = 2 
DO surfalert 
CASE allcode = 3 
DO airalert 


CASE allcode = 4 
DO shifte 
CASE allcocde = & 
DO shifts 
ENDCASE 
ENDDO 
RETURN 
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*#* PROGRAM SUBMENU 


CLEAR 


PUBLIC allcsode 


STORE 


& 1Q, 
@ 11, 
@ 12, 
@ 13, 
@ 14, 
@ 15, 
@ 16, 
@ 17, 


m@ 19, 


READ 


SET COLOR TO W 


4) 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 
14 


RETURN 


TO allcode 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


2 2 ws + wz SS ww BS wt 


Breeicieeiiniiiiininieniielehihieiiateniaciiaa tannin 
SET COLOR TO W+ 
<6 SAY 


T MMMM MMMM MM Me ee ie ei MMMM i iit 


ExiT 
CREW 
CREW 
CREW 
CREW 
CREW 


a <a 


SUBMENU 2 
PPh ih ot 


ALLOCATION FOR GENERAL ALERT ...... d 
ALLOCATION FOR SURFACE ALERT ...... c 
ALLOCATION FOR AIR ALERT .......... 
APEHEATIGN SINT = SHIFTS . 22.2... .- < 
ALLOCATION INTO 3 SHIFTS .......... 


“A S 


o™ O85 88 be 88 08 88 o8 88 2 


7ENTER YOUR SELECTION ==>)’ , 
GET alleode PICTURE 


799 RANGE 2,5 
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#** PROGRAM GENALERT 
* This program performs the ship manning for general alert 


CLEAR 

DO screene 

@ 9,29 SAY AUXILIARY FILE CREATION’ 
COPY FILE crewmemb. dbf TO tmpcrew. dbf 


Seoli23 SAY ’ TMPCREW’ 
COPY FILE alert.dbf TO tmpalert.dbf 
@ 12,29 SAY ’ TMPALERT’ 


* open required files 
SELE@ ia: 
USE users 
SEE Ga ve 
USE spy 
SEEEET = 
USE galert 
DELETE NEXT 122 
PACK 
SELECT 4 
USE timpcrew 
SEEECT re 
USE tmpalert 
STORE 2. T0eGiraish 
STORE .~JT. TO dene 
@ 9,25 SAY ’ ; 
is 1,23 SAY i 
@ 11,25 SAY ”’ i 
SET COLOR TQ We 
@ 12,25 Sar. PROCESSING IN PROGRESS’ 
SET COLOR TO W 
DO WHILE .NOT. EOF () 
STORE Sa eet 
SELECT 4 
GO TOF 
LOCATE FOR rank = E-)reqrank .~.AND. spec = E-dreaqspec , 
-AND. .~NOT. DELETED () 
IF .~.NOT. EOF () 
DELETE 
SELEC= Ss 
APPEND BLANK 
REPLACE rank WITH D-) rank 
REPLACE name WITH D-> name 
REPLACE spec WITH D-)spec 
REPLACE poscode WITH E-> poscode 
REPLACE descr WITH E-)descr 
STGRE .Ts 18 sok 
EESE 
STORE .F. TO done 
ENDIF 
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Soeeer 5 


IF ok 
DELETE 
ENDIF 
SKIP 
ENDDO 
See. SAY ” ’ 
IF .NOT. done 
STORE * * TO ansr 
@ 19,26 CLEAR 
@ 19,26 SAY *SOME POSITIONS REMAIN UNMANNED’ 
i¢@ 24,26 SAY *DUE TO NOT EXACT MATCH OF THE’? 
Beet, <6 SAY ” RANK OR SPECIALTY’ 
@ 23,23 SAY * IGNORE RANK AND CONTINUE? (Y/N) 
READ 
Ceres CLEAR 
IF UPPERCansr) = 7¥Y’? 
Sees = 
GO TOR 


SragRE 21. TO done 

SET COLOR TO W* 
ete. cs SAY ° 

SET COLOR TO W 

DO WHILE .NOT. EOF () 


PROCESSING IN PROGRESS’ 


SYGRE .F. TO cok 
[P .NOT. DELETED.) 
SELECT 4 
GO TOP 
LOCATE FOR spec = E-)reqspec .AND. 
peeve EOF ©) 
DEEETE 
SELECT = 
APPEND BLANK 
REPLACE rank WITH D-) rank 
REPLACE name WITH D-) name 
REPLACE spec WITH D-?>spec 
REPLACE poscode WITH E-) pescode 
REPLACE descr WITH E-)>)descr 
Sierra 2 ie lO ok 
silLos)= 
STORE .F. TO done 
ENDIF 
ENDIF 
Seeeli a 
IF ok 
DELETE 
ENDIF 
SKIP 
ENDDO 


@ 12,25 SAY ’ ’ 


JG) dh 


=— 


Berea 


GET arisr 


DEEETC! @ 


EESE 


ENDIF 
* 
IF 


SURES ae 
ENDIF 


- NOT. 
I- .NOT. 


finish 


STORE ° 


(a 
(a 


we ; 
w@ = 
e 
GET ansr 


READ 


dane 


> TO ansr 


CLEAR 
SAY 
SAY 
SAY ° 
SAY 


19,23 CLEAR 


IF UPPER Cansr) 
-l. TO done 
SET COLOR TO W* 
@® i¢g@,2s SAY 
SET COLOR TO W 
SEVEST eS 
GO TOP 

DO WHILE .NOT. 


STORE 


Slane. -- 


— 
= 


3 


3 


TO 


TO finish 


yY? 


PROCESSING IN PROGRESS’ 


EOF () 
mk 


IF ~NOT. DELETED() 
SELECT 4 


GO TOP 
LOCATE FUR 


Fes Net. 
DEES 
SEeaeir= 
APPEND BLANK 


REPLACE rank WITH D-> rank 
REPLACE name WITH D-) name 
REPLACE spec WITH D-)spec 
REPLACE poscade WITH E-> poscade 
REPLACE descr WITH E-)> descr 
STLURE .7T2 Ook 
jis S 
STORE .F. TO done 
ENDIF 
ENDIF 
s/f 25) = 
LEeaok 
DELETE 
ENDIF 
SKIP 
ENDDO 


is 


Les ao my! 


a a a 


-NOT. 


OZ 


SPECIALTY’ 


7 IGNORE SPECIALTY AND CONTINUE? 


DELEVERD 


*SOME POSITIONS STILL REMAIN UNMANNED’ 
* DUE TO NOT EXACT MATCH OF THE FIELD’ 


CY/N) 


==>)? 


y 


EES 
SnbReE «ff. '@ fanish 
ENDIF 
ENDIF 
ENDIF 
os 
SeEeeEC! 4 
BOeCATE FUR .NOT. DELETED) 
iP «NOT. EOF () 
STORE * * TO ansr 
wwio, <3 CLEAR 
@ 19,23 SAY * THERE [5S STILL AVAILABLE PERSONNEL’ 
Ww 24,25 SAY *DO YOU WANT TO SEE THEM? (Y/N) ==)? GET arsr 
READ 
IF UPPERCansr) = 7 Y’ 
CLEAR 
GO TOP 
LOCATE FOR .~.NOT. DELETED() 
OBewwniee  . NOT. EGF () 
DISPLAY serno, name, rank, spec FOR .NOT. DELETED() 


DO delayl 
CONT INUE 
ENDDO 
ENDIF 

ENDIF 
* update SPY file 
Sere ie ok 
GO TOP 
LOCATE FOR password = psw 
SERRE 2 


APPEND BLANK 

REPLACE date WITH DATE) 

REPLACE time WITH TIME () 

REPLACE username WITH A-) username 
REPLACE jobdescr WITH * ALLOCATION’ 
REPLACE progname WITH *’ GENALERT’ 


CLOSE DATABASES 

DELETE FILE tmpcrew. dbf 
WELETE FILE tmpalert.dbf 
RETURN 


121018: 


#*#*« PROGRAM SURFALERT 


* This program performs the ship manning for Surface alert 


CLEAR 

DO screened 

i@ 9,29 SAY AUXILIARY FILE CREATION’ 

COFY FILE crewmemb. dbf TO tmpcrew. dbf 

@ 11,29 SAY ’ TMPCREW’ 

COPY FILE alert.dbf TO tmpalert.dbf 

* delete the positions that are not necessary to be marned 
USE tmpalert 

DELETE FOR UPPER (descr) 
DELETE FOR UPPER (descr) 
DELETE FOR UPPER (descr) 
DELETE FOR UPPER (descr) 
DELETE FOR UPPER(descr) 
DELETE FOR UPPER (descr) 
PATK 

i leoes Shwe TMPALERT? 


7GUN 41 CONTROL’ 
"GUN 42 CONTROL’ 
7A/A MISS CONTR’ 
7A/A MISS TELEPH’ 
7A/A MISSILES 1’ 
7A/A MISSILES &’ 


* open required files 
SSE lire 
USE users 
SEEEE hee 
USE spy 
SELEC has 
Se salert 
DELETE NEXT iu 
PACK 
SELECT 4 
USE tmpcrew 
SEBZEE lS 
USE tmpalert 
STGRE .F. TOSFfinish 
STORE .T. TO done 
@ 9.2ca Saw ’ 
WwW IVES Shae : 
@ 11,235 Say] : 
SET COLOR TO We 
@ 12,25 SAY ’ PROCESSING IN PROGRESS’ 
SET COLOR TO W 
DO WHILE .NOT. EOF() 
STORE ~ Plea 
SELECT = 
GO TOP 
LOCATE FOR rank = E->reqrank .AND. spec = E-)reqspec , 
~AND. .NOT. DELETED() . 
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ig 


iC 


q 


es 


Ir-F .NOT. 
OSS 

S|SiS Dip = 

APPEND BLANK 

REPLACE rank WITH D-) rank 
REPLACE name WITH D-) name 
REPLACE spec WITH D-)spec 
REPLACE poscade WITH E-) posceade 
REPLACE descr WITH E-) descr 
SORE ete TO sGk 

Seo 
STORE .F. TO dame 
ENDIF 


SoeEeie a 


lf ok 
BSS ae Ss 
ENDIF 
SKIP 
ENDDO 


2,25 SAY 


. NOT. 


SLORE 


la 
(a 
i 
ia 


ia 


(19,26 


126 
20,26 
21,26 


See eat Sean O cee 
iy | L, oa 


READ 


(a 


19,23 


EGER @ 


$ 3 


done 


> TO ansr 

CLEAR 

SAY * SOME POSITIONS REMAIN UNMANNED’ 

SAY *DUE TO NOT EXACT MATCH OF THE’ 

SAY ’ RANK OR SPECIALTY? 

SAY * IGNORE RANK AND CONTINUE? (Y/N) ==)" 


CLEAR 


IF UPPER(ansr) = 7Y’ 
SEVECT. S&S 
GO TOP 


Stone 


-'.- TO done 


SET COLOR TO W* 


Beis, eo SAY ” 


PROCESSING IN PROGRESS’ 


SET COLOR TO W 

DO WHILE .~NOT. EOF () 
SrORe ar. [O .Gk 
Pee. iwad. DELETED) 


SELECT 4 

GO TOP 

LOCATE FOR spec = E-)reqspec .AND. .NOT. 

IF .NO). EOR) 
DELETE 
SELEE leer Ss 
APPEND BLANK 
REPLACE rank WITH D- rank 
REPLACE name WITH D-> name 
REPLACE spec WITH D-)spec 
REPLACE posccode WITH E-)>) pascode 
REPLACE descr WITH E-) descr 
STORE .T. TO ok 


Is 


GET aner 


DEEET 


EES 
STORES. =o Tee ecane 


ENDIF 
ENDIF 
SELECTS Ss 
IF ok 
DELETE 
EN 
SKIP 
ENDDO 
e@ te, eacsrr ] 2 
ESE 
STORE .T. TO finish 
ENDIF 


ENDIF 
ee be 
IF .NOT. finish 
IF .NOT. done 
STORE *® * TO ansr 
2@ 19,23 CLEAR 
@ 19,23 SAY *°SOME POSITIONS STILL REMAIN UNMANNED* 
@ 20,235 SAY *DUE TO NOT EXACT MATCH OF THE FIeLDd’ 
. 8 21,2355; SPECIALTY? 
@®@ £35,23 SAY 7 IGNORE SPECIALTY AND CONTINUE? (Y/N) 
GET ansr 
READ 
io 19, 2SeGZFAR 
IF UPPER(ansr) = 7Y’ 
STORE .T. TQ done 
SET COLOR TO W* 
if Lenco Saye PROCESSING IN PROGRESS’ 
SET COLOR TO W 
SSS Ss 
GO TOP 
DO WHILE .NOT. EOF () 
STORE =F. TO lek 
IF .NOT. DELETED () 
SELECT 4 
GO TOP 
LOCATE FOR .NOT. DELETED() 
le {NG wEeGe © 
DERE Te 
SEEEET Ss 
APPEND BLANK 
REPLACE rank WITH D-> rank 
REPLACE name WITH D-) name 
REPLACE spec WITH D->spec 
REPLACE poscede WITH E-> pescaode 
REPLACE descr WITH E-)>descr 
ORES Sil [Mel “il 
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—— 
== 


q 


ELSE 
STORE .F. TO dane 


ENDIF 
ENDIF 
SELECT S 
IF ok 
DELETE 
ENDIF 
SKIP 
ENDDO 
@ 12,25 SAY ’ ’ 
ELSE 
STORE .T. TO finish 
ENDIF 
ENDIF 
ENDIF 
a 
SELECT 4 


LOCATE FOR .NOT. DELETED() 
IF .NOT. EOF () 
STORE *® ° TO ansr 


@ 19,25 CLEAR 
@ 19,23 SAY ' THERE IS STILL AVAILABLE PERSONNEL?’ 
@ 20,25 SAY 'DO YOU WANT TO SEE THEM? (Y/N) ==)" GET ansr 
READ 
IF UPPER(ansr) = 7Y’ 
CLEAR 
GO TOP 


BEEATE FOR .~ NOT. DELETED () 
D@eWHILE .NOT. EOF () 
DISPLAY serma, name, rank, spec FOR .~.NOT. DELETED‘) 


DO delayl 
CONTINUE 
ENDDO 
ENDIF 
ENDIF 
* update SFY file 
SEEEET 1 
GO TOP 
LOCATE FOR password = psw 
SERSeT = 


APPEND BLANK 

REPLACE date WITH DATE () 

FEPLACE time WITH TIME) 

REPLACE username WITH A-> username 
REPLACE jebdescr WITH * ALLOCATION’ 
REPLACE progname WITH * SURFALERT? 


CLOSE DATABASES 

MeeeTe FILE tmocrew. dbf 
PEEVE FILE tmpalert.dbf 
RETURN 
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#** PRCGRAM AIRALERT 
* This preagram performs the ship manning for air 


CLEAR 

DO screene 

@ 9,29 SAY AUXILIARY FILE CREATION’ 

COPY FILE crewmemb. dbf TO tmpcrew. dbf 

@ 11,29 Save TMPCREW?’ 

COPY FILE alert.dbf TO tmpalert.dbf 

* delete the positions that are not necessary to 
USE tmpalert 

DELETE FOR UPPER (descr) 
DELETE FOR UPPER descr) 
DELETE FOR UPPER (descr) 
DELETE FOR UPPER (descr) "SS MiSs VTELerH? 
DELETE FOR UPPER (descr) So UM SstlEeor 
DELETE FOR UPPER(deser) = °> SS MiSSlESes 72 
PACK 

@ le, 224ser es TMPALERT?’ 


7 TORPEDO TUBE i’ 
* (1GRPEDO TUBE 27 
TSS =Mios: CON” 


* open required files 
SELECT a1 

USE users 

SEER Te 

USE spy 

SELECT ae 

USE aalert 

DELETE NEXT ara 
PACK 

SEEECT 4 

USE tmpcrew 

SEESBE Tas 

USE tmpalert 

STGRE .F eee wish 
STORE .T. TO done 


2@ 9,25 SAY ” ’ 
@ 13,25 SAY? ’ 
@ 11,25 SAY’ ’ 
SET COLOR TO W* 

@ 12,25 SAY ’ PROCESSING IN PROGRESS’? 


SET COLOR TO W 

DO WHILE .NOT. EOF () 
ST'GRE 2a (8 en 
SEEEC ha, 
GO TOP 


alert 


be manned 


LOCATE FOR rank = E->dreqrank ~AND. spec = E->redqspec , 


.AND. .N@iS sveee rer? 
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te sani s EDR) 
DERETE 
Seeeeiss 
REPEND BLANK 
REPLACE rank WITH D-} rank 
REPLACE name WITH D-> name 
REPLACE spec WITH D~-)>spec 
REPLACE poscode WITH E-> poscode 
REPLACE descr WITH E->descr 
STORE .T. TO ak 
ESE 
STORE .F. TO done 
ENDIF 
SeESeGr 5 
TF ok 
3) 4 aS 
ENDIF 
SKIP 
ENDDO 
Se -iewes SAY 5 
IF .NOT. dene 
STORE * * TO ansr 
@ 19,26 CLEAR 
19,26 SAY *° SOME POSITIONS REMAIN UNMANNED’ 


fe) fa 


@ 24,26 SAY * DUE TO NOT EXACT MATCH OF THE’ 

oe, -6 Saye" RANK OR SPECIALTY’ 

i@ 23,25 SAY IGNORE RANK AND CONTINUE? (Y/N) ==)? GE ansr 
READ 


Sere. ce CLEAR 
IF UPPERCansr) = 7Y’ 
SELEET S 
GO TOP 
STORE .T. TO done 
SET COLOR TO We 
wei2e, cao SAY ” FROCESSING IN PROGRESS’ 
SET COLOR TO W 
DO WHILE .~.NOT. EOF () 
Sones... 10 ak 
iP w2NOT. DEE TED( ) 
SELECT 4 
GO TOF 
LOCATE FOR spec = E->regqspec .~.AND. .~NOT. DELETED) 
ie .NOT. E0F () 
DEWETE 
SELECT 3 
APPEND BLANK 
REPLACE rank WITH D-> rank 
REPLACE name WITH D-)> name 
REPLACE spec WITH D->spec 
REPLACE pascode WITH E-> poscode 
REPLACE descr WITH E->descr 
SIGRE ~.T. TO ck 


ILS, 


ELSE 
STORE .F. TO done 


ENDIF 
ENDIF 
SECEC Io a 
IF ok 
DELETE 
ENDIF 
SKIP 
ENDDO 
@ Lle,eS SAY ? ¥ 
eS = 
STORE <= To COGS 
ENDIF 


ENDIF 

* 

IF .NOTS firasn 
IF .~.NOT. done 


STORE *® *% TO ansr 

is 19,25 CLEAR 

@ 19,23 SAY *SOME POSITIONS STILL REMAIN UNMANNED’ 
@ 24,253 SAY *DUE TO NOT EXACT MATCH @F THE reeks: 
iS c$l,.eSaconyY * SPEC TAM. 


BM £3,235 SAY * IGNORE SPECIALTY AND CONTINUE? (Y/N) ==>)", 
GET ansr 
READ 
i «19, -SeCLEAR 
IF UPPER(Cansr) = 7Y? 
STORE .T7T. TO done 
SEY TEGCLeAR Te we 
@ 1e,ea SAY ” PROCESSING IN FROGRESS’ 
SET COLOR TO W 
SEeee tT Ss 
GO TOP 
DO WHILE .~.NOT. EOF () 
STORE .F. TO ok 
fe co N@s DELETED©® 
SELECT 4 
60 TOP 
1 OEATE FOR NOT] DELeTtas® 
IF .NOT. EOF () 
DELETE 
SELECT 3 
APPEND BLANK 
REPLACE rank WITH D-)>rank 
REPLACE name WITH D-) name 
REPLACE spec WITH D->spec 
REPLACE poscode WITH E-> pascade 
REPLACE descr WITH E-)descr 
STORE... Te sar 


“LING 


aS = 
SRE. aie. 
ENDIF 
ENDIF 
SELECT ra 
IF ok 
DELETE 
ENDIF 
SKIP 
ENDDO 
SB levear SAY ” 


aE) S 


> GRE s. 1. 


ENDIF 


ENDIF 


SNOlr 
ke 


Selee ] 


BRtate 4- OR 


Le Nee 


4 


Sree 


@ 240,23 SAY *DO YOU WANT TO SEE THEM? 
READ 
IF UPPERCansr) = 'Y’ 
CLEAR 
GO TOP 
LOCATE FOR .~.NOT. DELETED() 
DOMBWAILE .NOT. EOF (> 
DISPLAY serno, name, 
DO delayl 
CONT INUe 
ENDDO 
ENDIF 
ENDIF 
SeMiodacersey file 
Seemed ot 
60 TOP 
LUCATE FOR password = psw 
SELEC yee 
FPPEND BLANK 
REPLACE date WITH DATE) 
REPLACE time WITH TIME () 
REPLACE username WITH A—-> username 
REPLACE joabdescr WITH 7 ALLOCATION’ 
REPLACE progname WITH *AIRALERT’ 


- NOT. 
EGF () 
oe) arsr 

=4 CLEAR 

SAY 


DEEP TED () 


CLOSE DATABASES 
DELETE FILE tmpcrew. dbf 
DELETE FILE tmpalert.dbf 


RETURN 


TO finish 


TO done 


Igual 


CY/N) 


7 THERE IS STILL AVAILABLE PERSONNEL’ 


==) 3 


GET amnsr 


Wanita spec FOR .NGT. DELETEDO 


*#*% FPROGRAM SCREENE 


i@ 68, 4 
ims 9,24 
i 14,24 
@ 11,24 
a 12,24 
@ 13,24 
@ 14,24 
@ 15,24 
@ 16,24 
@ 17,24 
RETURN 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


<a Oe | | a 


"T es o8 se ee es 


9 


Tove dd dd ddd dd i 


Pd etd dd dd td 


3 
9 
9 
7 
ie 


3 


ofl a 2. (a 


’ 
¢ 


IMIDE MIMIMIMIIM IIIT ITT a 


*%* PROGRAM DELAY1 


STORE 4 TO d 


DO WHILE d 
STGRES ce eee ct 


ENDDQ 
RETURN 


« 1a 


2 


*#* PROGRAM SHIFTE 


¥ This program performs the crew allocatian 
* into two shifts 


CLEAR 

DO screened 

© 9,29 SAY AUXILIARY FILE CREATION! 
COPY FILE crewmemb. dbf TO tmpshift.dbf 
USE tmpshift 

INDEX ON SPEC+RANK TO tmpshift 

Sei. =s>. SAY * TMPSHIFT? 


* open the required files 
SELECT 1 
USE users 
Selee f= 
USE spy 
5) ail) Sa Yl 
USE shifteéa 
DELETE NEXT 1am 
FACK 
SELECT 4 
MSE shitteb 
DELETE NEXT 1 
FACK 
SELELT & 
USE tmoshift INDEX tmpshift 
ase SAY 7 ? 
w@ 10,25 SAM ” ? 
Pelee oon yY 7 
SET COLOR TO W* 
Eetee ea SAY ” PROCESSING IN PROGRESS’ 
oueme  O 10 court < 
STORE @ TO count2 
“anes le 1 contin 
SET COLOR TO W 
SELECT 3S 
GO TOP 
DO WHILE contin 
be EOF @ 
SrenRe .F. 10 contir 
Blase 

See |) <3 

APPEND BLANK 

REPLACE rank WITH E-) rank 

REPLACE name WITH &—) name 

REPLACE spec WITH E-)spec 

STOre  counti + 1 TO count 1 

Se eee 

SKIP 


is 


BB) 1) SUB ea 


5 TORE cue el 
SeSoe 
fey a al 


APPEND BLANK 
REPLACE rank 
REPLECE name 
REPLACE spec 
STORE ecounce 


comt ily‘ 


WITH E-) rank 
WITH E-) name 
WITH E-)>spec 
+ | [@eeatncte 


SELECT 3 
SKIP 
ENDIF 
ENDIF 
ENDDO 
CLEAR 
STORE ® *% TO ans 
j@ 19,23 SAY THE PNG Ssalrls Ake Read 2 
@ 28,c¢c#S SAY °DG YOU WANT 10 SEE THEM? Cr7ih —=)> "> be 
READ 
IF UPPERC(Cans) = 7Y? 
SORE So ceeds lis 
STORE @ TO ch 
BG WHIlEe Ss Nei tin 
DO screenc 
je “9.34 sey -* YOUR CHOlLEEy 4 
(G Le, SW SANs? SHEP TA. yeeterste ce) evece as 
@ L355 -5A rs SELES Beier oretere res ri 
@ 14,34 SAY *SHIFT A AND BEB . cee 
iS Poe owesSey 8 EXE T oo csteeteve stewie 4) 
@ 18,184 CLEAR 
l@ £4,228 SAY * ENTER YOUR CHOICE ==)" GET ch , 
FTCTURE °%97 RANGE 1,4 
READ 
DU CASE 
CASE ch = 1 
CLEAR 
Sly Oy eal, Bt 
GO TOP 
DO WHILE . NOT. e6r ©) 
DISPLAY rank, name, spec 
DO delayl 
SKIP 
ENDDO 
CASE [enn —-2 
CLEAR 
SEE Eiges: 
GO TOP 
DO WHILE .~NOT. EOF () 
DISPLAY rank, name, spec 
DO delayl 
SKIP 
ENDDO 
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arms 


Case ch = 3 

CLEAR 

S (oo eg 

60 TOP 

Dewi eae ono eur <> 
DISPLAY rank, name, spec 
DO delayl 
SKIP 

ENDDO 


CLEAR 
SELECT + 
GO TOF 
DO WHILE .~.NOT. EOF () 
DISPLAY rank, name, spec 
DO delayti 
SKIF! 
ENDDG 
CASE ch = 4 
SORE ss fo) 1 fin 
ENDCASE 
CLEAR 
Peeeecibe FL 
STORE ® 7 TO res 
@ 24,18 SAY ’*>DO YOU WANT TO SEE ANY ONE GF THE’ 
eel. to SAY. 7 SHIFTS AGAIN? (Y/N) ==)" GET res 
READ 
IF UPPER(res) # 7Y’ 
Su@re eh. 10 fin 
ENDIF 
ENDIF 
ENDDO 
ENDIF 


* update SPY file 

SueCl) i 

GO TOF 

LOCATE FOR password = psw 

SEE = 

APPEND BLANK 

REPLACE date WITH DATE () 

REPLACE time WITH TIME() 

REPLACE username WITH A-> username 
REPLACE jobdescr WITH * ALLOCATION’ 
REPLACE progname WITH * SHIFT2’ 


CLEAR 

CLOSE DATABASES 

PebeteE FILE tmoshift.dbf 
Peeete FILE tmoshift. ndx 
RETURN 


iE S 


*#*#*% PROGRAM SHIFTS 


*% This program performs the crew alloacatian 
ss into three shifts 
CLEAR 


D0 screend 

@ 9,29 SAY 7 AUXILIARY FILE CREATION’? 
COPY FILE crewmemb.dbf TO tmpshift.dbf 
USE tmpshiftt 

INDEX ON SPEC+RANK TO tmpshift 

8S Ll1l,2aeSsAyY * TMPSHIFT? 

* open the required files 

SEEECT 1 

USE users 

SEEECT < 

USE spy 

SELLERS 

USE shiftsa 

DELETE NEXT 1a 

PACK 

SELSGi a= 

USE shrrese 

DELETE NEXT ima 

FACK 

SEBEET a 

USE siti rise 

DELETE NEXT 102 

PACK 

SEE T We 

USE tmpshift INDEX tmpshift 

i 9, 2Se5hy- 7 : 
w 14,25 SAY ? 3 
@ tl ea Seite. ! 
SET COLOR TO We 

is 12,253 seve FROCESSING IN PROGRESS’ 
STORE 8 70 este 

STGRE @ TQ counted 

STORE 4 TO counts 

STORE . 725 8) conver. 

SET COLOR TO W 

SEEECTGSe 

GO TOP 


IG 


De WHILE 
Nero st Be ae 


BeSe 


comtin 
STORE .F. TO 


Seley Ss 
APPEND BLANK 
REPLACE rank 
REPLACE name 
REPLACE spec 
STGRE countl 
== 0 ag ae =" 
SKIP 


tey EOr *) 
Some 2 Fs 
SESE 
Seber 4 


Gene 2 


WITH F-> rank 
WITH F-> name 
WITH F->) spec 
+ 1 TU countl 


TO contin 


APPEND BLANK 
REPLACE rank 
REPLACE name 
REPLACE spec 
Segre countc 


Wi rier —7 rane 
WITH F-> name 
WITH F-) spec 
tee) CoOtumnc 


SEEECT 6 
SKIP 
ENDL 


ee Ae) 
STORE®.F. 

ae Se 
SSReeEh & 
APPEND BLANK 
REPLACE rank 
REFLACE name 
REPLACE spec 
SIrORE counts 


TG contin 


WITH F-)> rank 
WITH F-) name 
WITH F=) spec 
Poise tO Counts 


S\Sljelblp [ss 
SKIF 
Eni iE 
ENDIF 

ENDDO 
CLEAR 
SIG@RE * * %T10 ans 
Pies e2 say "THE THREE SHIFTS ARE READY’ 
MeeDe aes SAY *DO YOU WANT TO SBE THEM? (Y/N) ==)" GET ans 
READ 


i ae 


IF UPPER(ans) 
STORE .F. 
STORE 9 TO ch 


DO WHILE .NOT. 


= %y? 


lO) fim 


DG screene 


ig 
ia 
ta 
is 
ig 
id 


ig 


9,34 
i2, =a 
30 
14, 20 
15, 39 
18,102 
20, 28 


PICTURE 
READ 
DO CASE 


CASE 


CASE 


CASE 


CASE 


ENDCASE 
CLEAR 


SAY *’ YOUR CHOICE :;° 
SAY * SHIFT A 

Sar °SHIFT & 

SAY Sor tf 

SAY JEXIT 

CLEAR 

SAY ENTER YOUR CHOICE 
79? RANGE 1,4 

ch = 1 

CLEAR 

SELLER SS 

60 TOR 


fir 


DO WHILE .NGa- 


EGE 


DISPLAY rank, 
DO delayl 
SKIP 

ENDDO 

ch=¢e 

CLEAR 

SELECT -4 

GO TOP 

DO-WHILE.2NGT.. Fer.) 
DISPLAY rank, 
DO delayl 

SKIP 

FNDDO 

ch= 34 

CLEAR 

SESS 

GO TOP 

DO WHILE .NOT. EOF () 
DISPLAY rank, 
DO delayl 
SKIP 

&NDDGO 

ch = 4 

STORE . Taare fav 
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name, 


name, 


nanie, 


spec 


spec 


spec 


4 


on (8 Se acta 
STORE * * FO res 
8 29,18 SAY °*DO YOU WANT TO SEE ANY GONE GF THE’ 
=i, 19 SGY 7 SHIFTS AGAIN? (Y/N) ==)? GET 

READ 

IF UPPER(res) # 7Y°’ 

ee de EL) te aera 
ENDIF 
ENDIF 
ENDDO 

ENDIF 


lol 


fg 


* update SFY file 

SELECT 1 

GO TCF 

LOCATE FOR passwerd = psw 

SEvet lee 

RPPEND BLANK 

REPLACE date WITH DATE) 

REPLACE time WITH TIME) 

REPLACE username WITH A-> username 
REPLACE jaebdescr WITH *? ALLOCATION’ 
REPLACE pragname WITH 7? SHIFTS’ 


CLEAR 

CLOSE DATABASES 

Poe File tmosnift. ddr 
Weeete FILE tmoshift. ndx 
RETURN 


co 


D. PROGRAMS PRODUCING THE REQUIRED LISTS 


z%*%* PROGRAM REPORTER 

* displays on tne screen or prints 
* arnumber af Lists according tea 
i= user’? s requests 


CLEAR 
STORE .F. TO stap 
PUBLIC rcode 
DO WHILE .~NOT. stop 
DO submenu4 
DO CASE 
CASE recede = A 
RETURN 
CASE recode = 1 
DO listi 
CASE recede = 2 
DO Uriste 
CASE rende = & 
DO lists 
~ CASE reede = 4 
DO list4 
CASE rcecode = 5& 
DO lists 
CASE reode = 6 
DO list6G 
CASE reode = 7 
DO list7 
CASE rcode = 8 
DO list8 
CASE recede = 93 
DO list9 
ENDCASE 
ENDDOQ 
RETURN 


8) 


**x* PROGRAM SUBMENUS 


CLEAR 


PUBLIC recode 
TO reode 


Sane 2 


(ol fot to fot tat fat for tai tat 


tal igi 


fat fal Sat 


is 


5,14 
&, 14 
eG 
8,14 
9,14 
13,14 
cere. 
12,14 
13,14 
14,14 
hee 
eee 
17.14 
18,14 
19,14 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
Sey 
SAY 
SAY 
SAY 


3 


a wa 


|] 


Ld] a ] Ld ) ~at ) | 


OMIM IM IMI MIM 


ale EE 
ei Sy] 
eon 
Sl 
Eis 
fee hSiih 
i 
SHIP 
SHIP 
SHIP 


TO 
OF 
OF 
Be 
GF 
OF 
OF 


ORGANIZATION DURING SURFACE ALERT .. 
GRGANIZATION DURING AIR ALERT ...... 
ORGANIZATION DURING GENERAL ALERT . 
TAD dd et em eg egg eg te ed tg fe od tt 
SET COLOR TO W+ 


SUBMENU 3 
Pega ea ed A td tt 
MEUM OMIBISLD So a6 Sea oo ceo 56 5 a 


Be LIN SG) SE 9) G) eee cesar i 
FeG@UP ame b slNGel GE CREW see = 
CREW OF A REQUESTED DEPARTMENT... & 
CREW OF A REBUESTED SUBDEPARTMENTS 
Brew PCEGeATEeD NGS] SHiriS . 22. 
CREW ALLOCATED INTO 3 Sinit 1S] 44-- 


wi Oi Nt Om Ch 


@ 21,26 SAY ’ENTER YOUR SELECTION ==)” , 
RANGE 4, 9 


cise e 


READ 


Seq, CGEGR TO W 


RETURN 


reode FPICTURE 


7g} 


dap 


« 3 


= 
] 
3 5 
X 


«#x PROGRAM LISTI1 


CLEAR 

USE crewmemb 

INDEX UN rank TO cCcrewmemb 
DO screened 


@ 9,29 SAY *AUXILTARY FILE 


STORE .T. TO again 

SECEGC) 1 

USE ranks 

SEIEBCT 2 

USE specialt 

S/S 2 

USE oardcrew 

GSO TOF 

DELETE NEXT 180 

PACK 

SELECT 4 

USE crewmemb INDEX crewmemb 

GO TOR 

DU WHILE again 

Ir Ee 
~ STORE .F. TO again 
Salis = 

Selec 
S60 TOF! 
LOCATE FOR rankcode 
Sele ei a 
GO TOP 
LOCATE FOR specesde 
SEREETS] 
APPEND BLANK 
REPLACE serno WITH 
REPLACE name WITH 
REPLACE indate WITH 
REPLACE sutdate WITH 


-_— 


REPLACE rank WITH 
REPLACE spec WITH 
SELEE Tees, 
SKIP 

ENDIF 


ENDDG 

STORE .F. TO printer 
STORE * ? TO ans 

CLOSE DATABASES 

DELETE FILE crewmemb. ndx 


CREATION’ 


D-—> rank 


D-—> spec 


D-)> serno 
D-> name 

D-> indate 
D->outdate 
Q-y, rankname 
R-> specname 


2 


DO WHILE UPPERCans) # 75’? 


SELECT 3 
LSE oardcrew 
S Vl (5 See ise) 
Seine .F. 10 
Sexe oF. 1G 
Sverre .F. 1G 
DO screene 
Bea, ot oay) YOUR CHOICE’ 
imotenee Say 7List(S) ON SEREEN ..: iy 
Meeps SAY *LIST(S) GN PRINTER : 
ideo es CLEAR 
STORE 0 TO resp 
Geeaeeo SAY 7ENTER YGUR CHOICE ==r™ GET resp 
PICTURE 7937 RANGE 1i,ec 
READ 
IF resp = 2 
Spence =. (. > 70 printer 
@ 2a,2eS3 SAY 7PUT YOUR PRINTER ON i 


On o 


DO delay 
ENDIF 
@ 12,28 SAY ’SORTED ON NAMES > 1? 
@-13,28 SAY ?SORTED ON RANKS > oo? 
@ 14,28 SAY *SGRTED ON INDATE >: 3 
@ 15,28 SAY ’SORTED ON QUTDATE : 4’ 
Ee Te5=23 CLEAR 
STORE @ TO resp 
@ fa,28 SAY 7ENTER YOUR CHOICE ==)' GET resp 
PICTURE °97 RANGE 1,4 
READ 


IF resp = 
STGRE .T. TO a 
INDEX ON name TO ordcrew 
EESE 
IF resp = 2 
SOne.. 1. COD 
SESE 
IF resp =3 
SOK eeatie oo CC 
INDEX ON irdate TO ordcrew 
= s) 
IF resp = 4 
STORE .T- 18 ad 
INDEX GN sutdate TO ordcrew 
ENDIF 
ENDIF 
ENDIF 
ENDIF 


WS 


SELEC Ams 
IF printer 
SET PRINT ON 
IF a 
REPORT FORM Istla 
Pease 
TP 2G 
REPORT FORM Ilstib 
ELSE 
Le ve 
REPORT FORM Ilstic 
ELSE 
IF d 
REFORT FORM lstid 
ENDIt 
ENDIF 
ENDIF 
ENDIF 
SETSE RINE are 
ELSE 
CLEAR 
GO TOP 
IF a 
DO WHILE .~NOT. EOF () 
DISPLAY name, rank, spec 


DO delayl 
SKIP 
ENDDO 
ELSE 
J ae) 
DO WHILE .~.NOT. EOF () 
DISPLAY rank, spec, name 
DO delayl 
SKIP 
ENDDO 
ELSE 
IF c 


DO WHILE .~-NOT. EOF () 


DISPLAY indate, name, rank, 


DO delayl 
SKIP 
ENDDO 


124 


PW WHEE SNOT. EGF () 
DISPLAY cutdate, name, rank, spec 
DU delayl 
SKIFF 
ENDDO 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
CEEAR 
CLOSE DATABASES 
foes» B 
Pebele File ardcrew.ndx 
ENDIF 


Seermne * * TU ansr 
B® 24,295 SAY 7DO YOU WANT TO SEE OR PRINT AGAIN’ 
Sheataeo SAY 7 ONE OF THE AVAILABLE LISTS?’ 
@ 22,28 SAY ENTER YOUR ANSWER (Y/N) ==)" GET ansr 
READ 
IF UPPER(ansr) # 7 Y’ 
STORE ?’N’ TO ans 
ENDIF 
ENDDO 


= 
Dames 
= 
—_ 


CLEAR 
LOSE DATABASES 
RETURN 


i lysapey 


#*x« PROGRAM LISTe 


Ee Sieir 

SELECT 

USE ranks 
Sebel = 

USE specialt 
SELECT 3 

USE intocrew 
DELETE NEXT 10 
FACK 

SELECT 4 

USE crewmemb 
INDEX ON name TO crewmemb 
GO TOR 


DO screened 

@ 9,29 SAY ~AYAILIARY VEITEE Seer. 
STORES Sie toeaga an 

DO WHILE again 


lif eee > 
STORE .F. TO again 

ELSE 
See ei! 
GO TOP 
LOCATE FOR rankcode = D-)rank 
SELEGI = 
GO TOP 
LOCATE FOR spececsade = D-)spec 
SEPEGies 
APPEND BLANK 
REPLACE name WITH D-> name 
REPLACE rarnk WITH A-> rankname 
REPLACE spec WITH B-> specname 


REPLACE address WITH D-—-) address 
REPLACE phone WITH D-—>) phone 
SELECT 4 
SKIF 
ENDIF 
ENDDO 
SIORE .Fs) FO pearnt eo: 
STORE * *% TQ ans 
DO WHILE UPPER(ans) # 7’N’ 
ST@GRE 2 Feeble a 
STORE Foes 
STORE [ee sueae 
STORE 2 howe eee 
DOD screenz 
i@ 9,34 SAY * YOUR CHOICE’ 
@ 12,28 SAY *LIST(S) ON SCREEN - 
@ 13,28 SAY "LIST(S) ON FPRINTER : 


26 


i 
y 


PO Treeco CLEAR 
STORE @ TO resp 
Peewee ae SAY "ENTER YOUR CHOICE ==)? GET resp 
Sreqike °- 3° RANGE 1,2 
READ 
IF resp = 2 
Seine ois 10 printer 
@ 24,28 SAY *7FPUT YOUR PRINTER ON i 
DO delay 
ENDIF 
12,23 SAY * NAME AND RANK 
13,28 SAY NAME AND PHONE 
14,28 SAY * NAME AND ADDRESS 
15,23 SAY * NAME-ADDRESS—-FPHONE 
@ 18,23 CLEAR 
STORE 6 TO resp 
Oeecwes SAY “ENTER YOUR CHOILE ==>" GET resp 
PY erere *3? RANGE 1,4 
READ 


fi 
C 


os oe eso 66 
L 


fo! ‘ql ‘gl fo ta 


IF resp = 1 
Sine 2 fs. TO a 


PSE 
IF resp =e 
Seine. we Ge 
ELSE 
IF resp =3 
Siege. 11. .7Ore 
BESe 
IF resp = 4 
STORE .7T. TOd 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
Seeeel Ss 


fe printer 
SET PRINT ON 
IF a 
REPORT FORM Ilstea 
ee Sle 
Te. -b 
REPORT FORM list<b 
PESe 
1 eae 
REPORT FORM lstec 


Mee? 


b 


GEESE 
IF d 
REFORT FORM Ilsted 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
SET PRINT OFF 
ELSE 
CLEAR 
GO TOP 
IF a 
DO WHILE .NOT. EOF () 
DISPLAY name, rank, spec 
DO delayl 
SKIP 
ENDDO 
ELSE 
Lea 
DO WHILE .NOT. EOF () 
DISPLAY name, phone 
DO delayl 
SK iF 
ENDDO 
ELSe 
Lee 
DO WHILE .NOT. EOF () 
DISPLAY name, address 
DU delayl 
SKIP 
ENDDO 
ELSE 
IF d 
DO WHILE .~.NOT. EQF() 
DISPLAY name, address, phone 
DO delayl 
SKAIP 
ENDDO 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
CLEAR 


STORE *® *% TO ansr 

@ 24,28 SAY *7DO YOU WANT TO SEE OR FRINT AGAIN’ 

iS 21, 264s ONE OF THE AVAILABLE LISTS?’ 

@ £2,283 SAY ENTER YOUR ANSWER (Y/N) ==)? GET ansr 
READ 


slate) 


IF UPPERCarnsr) # 7 Y7 
STORE ’N? TO ans 
Sys 2 Gs 
ENDDO 


CLEAR 

CLOSE DATABASES 

DELETE FILE crewmemb. ndx 
RETURN 


IRS, 


*** PROGRAM LISTS 


CLEAR 
DO screene 
@® 9,29 SAY *AUXILIARY FILE CREATIUN’ 
SEbECT ya 
USE ranks 
SELLER ae 
USE specialt 
SEEECI Ss. 
USE deplst 
DELETE NEAT iv 
PACK 
SELELY 4 
USE subdeptn 
SEECEG Tics 
USE departi 
SELEC ie 
USE crewmend 
INDEX ON rank TO crewmemb 
GO TOP 
STORE .T. TO again 
DO WHILE again 
IF EO 
STEREw a) ho again 
Else 
Stake 7 TO tdpname 
SEEE Gi. 
LOCATE FOR rankeode = F-) rank 
SEL Rie 
GO TOP 
LOCATE FOR specceace = F-)spec 
SELECT 4 
60 TOP 
LOCATE FOR subdpeode = B-) subdpecde 
SECEEGT es 
GO TOP 
LOCATE FOR depeode = D-)> depccde 
IF BEE 
STORE * DECK? TO tdpname 
ENDIF 
SERSET -S 
APPEND BLANK 
REPLACE sernoa WITH F->sernse 
REPLACE name WITH F-)name 
REPLACE rankname WITH A-—>rankname 
REPLACE specname WITH H-)specname 
IF tdpname = ’ a 
REPLACE depname WITH E->depname 
ELSE 
REPLACE depname WITH tdpname 
ENDIF 


LSO 


wae) & 
SKIP 
SM DIF 
ENDDO 


Seine .F-. 10 printer 
STORE * 7’ TO ans 


DO WHILE UPPERC(ans) # ’N? 
SELECT 3 
GO TOR 
Srare .F. 1Oea 
Sone esre. ~LO. 6 
DO screenc 
m@ 9,354 SAY * YOUR CHOICE’ 
Gee weo oAY “LIST(S) GN SCREEN =: 
Geese se ony " LIST(S) GON PRINTER = @’ 
Sele. e4 CLEAR 
STURE YW TO resp 
@ £3,298 SAY ENTER YOUR CHOICE ==)’ GET resp , 
Se ierRe =o" RANGE 1,2 
READ 
Ire resp = 2 
SURE .7T. TO printer 
@ 24,29 SAY * PUT YOUR FRINTER ON u 
DO delay 
ENDIF 
Bele ses osAY * DECK DEPERTMENT 
@ 15,28 SAY * MACHINE DEPARTMENT 
@ 18,23 CLEAR 
STORE W TO resp 
@ £4,228 SAY ENTER YOUR CHOICE ==) GET resp , 
PICTURE °9’ RANGE 1,2 
READ 


Ir resp = 1 

Steke . hs. 10 @ 
ELSE 

Shere -.t. TO-b 
ENDIF 


lewerincer 
SET PRINT ON 


IF a 

REPORT FORM Ist3 FOR depname = *’ DECK 
BIESE 

REPORT FORM Ists FOR depname = ’ MACHINE 
ENDIF 


SET PRINT OFF 


seh 


IF a 
DG WHILE 2NG@h ean] 
DISPLAY serra, name, rankname, specname, desname , 
FOR depname = * DECK : 
ENDDO 
EEeSE 
DO WHILE .~NOT. EOF (0) 
DISPLAY serno, name, rankname, specname,depname , 
FOR depname = *MACHINE : 
ENDDO 
ENDIF 
ENDIF 
DO delay 
CLEAR 


STORE * *° TO ansr 
@ 24,28 SAY *DO YOU WANT TO SEE OR PRINT AGAIN’ 
i £1,258 Saw: GQNE OF THE AVAILABLE LISTS?? 
@ 22,28 SAY * ENTER YOUR ANSWER (Y/N) ==)’ GET ansr 
READ 
IF UPPER(Cansr) # 7 Y? 
STORE *N* TO ans 
ENDIF 
ENDDO 


CLEAR 


CLOSE DATABASES 
RETURN 


IL Bes 


**#e* PROGRAM LIST4 


GREAR 
DO screenc 
@ 9,29 SAY AUXILIARY FILE CREATIGN!? 
SEeeeCl] 1 
USE ranks 
SELECT 2 
BS=_ specialt 
SEEECT 3 
USE sdeplst 
DELETE NEXT hee 
FACK 
SELECT 4 
USE subdepin 
SeiGeltT 3S 
US& creawmemb 
INDEX ON rank TO crewmemb 
6O TOP 
Segre. |. TO agair 
POeWaitle again 
te Sewe () 
beol@ine .F. EOgaidain 
BIESE 
Sree 7 
LOCATE 
Smet 1 
GO TOF 
LOCATE FOR speccode = E-> spec 
SELECT S4 
GO TOP 
LOCATE FOR subdpcode = B-) subdpecde 
SEEECT 3 
APPEND BLANK 
REPLACE sernoa WITH E-> serra 
REPLACE name WITH E-> name 
REPLACE rankname WITH A-drankname 
REPLACE specrname WITH B-> specname 
REPLACE sdpname WITH D-> sdpname 
SEeEEET & 
SKIP 
ENDIF 
ENDDO 


OR rankcode E—->) rank 


Pu Stl 


STORE .F. TO printer 
STORE ’? * TO ans 


iS 3 


DO WHILE UPPER(ans) # 7 N’ 
SELECT 3 
GO TOR 
STGRE .F. TO deck 
STGRE .F. TO machine 
DO screene 
@ 9,34 SAY * YOUR CHOICE’ 
@ 12,28 SAY "LIST(CS?) ONSSEREEN 
@ 13,28 SAY *LIST(S) ON PRINTER 
@ {8 22 .CleaR 
STORE @ TO resp 
@ 24,08 SAY *ENTER YOUR CHOICE ==)’ GET resp , 
PICTURE °93” RANGE 1, 2 
READ 
IF resp = 2 
STURE..T.) Tes pies ee 
@ 20,268 SAY 7FUT YOUR VEZ INIER Ge : 
DO delay 
ENDIF 


“S38 SAY * DECK DEPERTMENT 
@ 13,28 SAY MACHINE DEPARTMENT 
m@ 18,23 CLEAR 
STORE @ TO answr 
@ 23,28 SAY ENTER YOUR CHOICE ==)” GET answr , 
PICTURE’ 37 SReanNGe i, 2 
READ 


fi 


IF amswr = i 
STORE .T. TO deck 
STORE a TO pref 


@ 11,28 SAY °ADMINISTRATION ...... 1? 
@ 12,28 SAY *COMBAT INFORM ....... = 
@ 13,28 SAY > COMMUNICATION .......- 3? 
@ 14,28 SAY °NAVIGATION .....-..-- 4? 
@ 15,28 SAY *WEAPONS .........-.---- 5 
@ 18,235 CLEAR ’ 
@ 23,28 SAY ° ENTER YOUR CHOICE ==) GET pref 
PICTURE °9’ RANGE 1,5 
READ 
ELSE 
STORE J TO pref 
@ 11,28 SAY °DAMAGE CONTROL ......- 1? 
@ 12,28 SAY 7 ELECTRIC INSTAL ..... a 
@ 13,28 SAY *ELECTRON EQUIPT ..... 3? 
@® 14,28 SAY °MAIN ENGINES .......- 4? 
@ 15,28 SAY *SPARE PARTS .......-.-- 5? 
® 18,23 CLEAR ’ 
@ 20,28 SAY ’ ENTER YOUR CHOICE ==)’ GET pref 


PICTURE *93" RANGE Tl, = 


134 


iF printer 


SET PRINT ON 


IF deck 
DO CASE 
CASE 


CASE 


CASE 


=&MDCASE 

=| os) 
DO CASE 
CASE 


CASE 


CASE 


CASE 


pref = i 


SEF PRinTt GF 
SEVScePaRe ie We 


@ 93,34 SAY 
11, 
aiet = 
©) ple 


26 
“6 
=e 


SAY 
SAY 
SAY 
14,<¢6& SAY 
mite, <¢S SAY 
DO delaye 
pref =¢ 


REPORT FORM 1st4 


1*#x# SORRY «*? 
SET COLOR TO W 


Bh wi a 


SET PRINT OBE 


— FE 


— as 


pref 


REPORT FORM Ist4 


SET PRINT OFF 


— 
— 


pref 4 


REPORT FORM 1st4 


SELGeRr) OFF 


pref = & 


RESORT FORM lst 


SET PRINT OFF 


pret = i 


SET PRINT UFF 


SET COLUR TU 


Wt 


FUR 


FUR 


FOR 


FOR 


I CANNOT PROVIDE YOU THis Li 
THIS SUSBDEPARTWMEMT MUST Se 


MANNED MANUALLY 


sdprame =’ 


COMBAT INFO 


3 


sdprname="? COMMUNTICaST IONS’? 


— 


sdprame 


sdprname 


"NAVIGATION 


"WEAPONS 


3 


is SOV Sa SAY *e* SURRY Gee’ 

SET, EBEGRa1G W 

@ 1, 2e6/sny ” 

m! 12,26 SeaY ~: CAN eRoviDe YCU THIS Lisi 
@ Ws.ceo MY" THIS SUBDEFARTMENT MUST Se ! 
@® 14,26 SAY ’ MANNED MANUALLY : 
DG delayd 

prer =e 

REPORT FORM 1st4 FOR sdpname=’ ELECTR. INSTAL’ 
SET PRENT OFF 

pref = 4 

REPORT FORM l1st4 FOR sdpname=’ ELECTR. EQUIP MN 


SET PRINT OFF 


pret ae 


REFORT FORM 1st4 FOR sdpname=’ MAIN ENGINES 
SET FRINT OFF 


bss: 


? 


CASE 


ENDCASE 
ENDIF 
ELSE 
CLEAR 
GO TOR 
IF deck 
DO CASE 
CASE 
CASE 
CASE 
CASE 
CASE 
ENDCASE 


pref = 3 

SET PRIS Ger 

SET CGEOR Tavis 

@ 9,34 SAY *** SORRY “~e° 
SET COLOR TO W 

2 11,26 SAY 
@ 12,26 SAY 
@ 143,26 SAY 
@ 14,26 SAY 
@ 15,26 SAY 
DO delayed 


] 

I CANINE T PRGViDE YoU This Plaw 
THIS SUBDERPARTMENT MUST BE * 
MANNED MANUALLY : 


3 


P|] i bed c) A 


pref = 1 
DO screened 
SET COLOR TO W* 
ow 9,34 SAY *** SORRY x= 
SET COLOR TO W 
mat. 26 SAY 2 : 
12,<¢6 SAY *T CANNGT PROVIDE yeu THIS List 
LSgc6. SAYa! THIS SGUBDEPARTMENT MUST BE * 
14 co oy 4 MANNED MANUALLY : 
elo. eo oar = : 
DO delay2 
CLEAR 
pref = 
DO -HHILE oN. Sor © 
DISPLAY name, rankname, specname, sdpname , 


o! (qi gt tae 


FOR sdpname = *COMBAT INFO Z 
ENDDO 
pref = & 


DO WHILE .NOT. EOF () 
DISPLAY name, rankname, specname, sdpname . 
FOR sdpname = *COMMUNICATIONS ' 

ENDDO 

pref = 4 

DO WHILE .NOT.. EERO 
DISPLAY name, rankname, specname, sdpname , 
-OR sdpname = 7 NAVIGATION , 

ENDDO 

pref = 5 

DO WHILE .~.NOT. EOF () | 
DISPLAY name, rankname, specname, sdprame , 
FOR sdpname = ?7WEAFPONS : 

ENDDO 


eG 


Sess 
DO CASE 
Coo pre? ==" 1 
DO screened 
Set Colour. te va 
Pega cote oar x= SORRY +e’ 
Set CEGEGR, 1 W 
Ei. coe soy , 
aera ee Saye 1 CANNOT, PROVIDE YOU°THIS Lis?’ 
ia taeeee say * THIS SUBBEPARTMENT MUST BE °” 


@ 14,26 SAY ’ MANNED MANUALLY : 
@ 15,26 SAY ”’ : 
DO delayed 

CLEAR 


SAse  prer = <2 
Deets en ane Om) 
DISPLAY name, rankname, specname, sdpname , 
FOR scpname = °ELECTRIC INSTAL’ 
ENDDO 
CR&S5E pref = 3 
DO WHILE .~.NOT. EOF () 
DISPLAY name, rankname, specname, sdoname , 
FOR sdpname = ’ELECTRON EQUIP’ 
ENDDO 
CASE pref = 4 
BOSWRTEe ~NGT. ERR) 
DISPLAY name, rankname, =fecname, scpname , 
FOR sdpname = ’MAIN ENGINES ; 
ENDDO : 
CASE pref = 3 
DO screenc 
SEQ COLOR 10) we 
m@ 9,34 SAY ?7** SORRY **? 
SEN COLOR, TG 
igi. 26 4Say 
We le,eG SHAY 


b] 


i CANNOT PROVIDE YOU THIS Lisi’ 


a 
2 ww ww wo 


ES, 26 SAY THIS SUBDEPARTMENT MUST BE °* 
@ 14,26 SAY MANNED MANUALLY A 
Ee as Hoa Y : 
DO delayed 
ENDCASE 
ENDIF 

ENDIF 

SiOke, * ° TO arnsr 

@ 23,28 SAY 7DO YOU WANT TO SEE OR PRINT AGAIN’ 

m@ 1,28 SAY ’ ONE OF THE AVAILABLE LISTS?’ 

@ 22,28 SAY 7ENTER YOUR ANSWER (Y/N) ==)? GET ansr 

READ 


IF UPPERCansr) # 7 ¥Y? 
STORE ’N’ TO ans 
ENDIF 
ENDDO 


Sy 


CLEAR 

CLOSE DATABASES 

DELETE FILE crewmemb. ndx 
RETURN 


ise 


**<x PROGRAM LISTS 


CLEAR 
Slane .F. 
wees or. 
Signe «Ff. 
Seeecy 1 
WSe Sniftca 
SePEECT =£ 
MSE Snifteb 
Seerel & 
USE ranks 
select 4 
USE specialt 


SEEEET 


= 
} 


CO 


a 
b 
printer 


4-1-4 


U 
0 


USE shiftlst 
DELETE NEXT 18 


PACK 
STORE *® °* TO ans 
DO WHILE UPPER(Cans) # 7 N’ 
DO screencz 
if 99, 34 SAY * YOUR CHOICE? 
Seema omy * ene (Seige SCREEN -: ee 
Peeeeeao sey  LIST<(S) ON PRINTER = 2? 
Hea es CLEAR 
STURE 8 TO resp 
im 24,28 SAY ENTER YOUR CHOICE ==)° GET resp 
Sienene ° 3S’ RANGE 1,2 
READ 
IF resp =e¢ 
SIGRE «Tf. §O sprinter 
iB 24,28 SAY * PUT YOUR PRINTER ON : 
DO delay 
ENDIF 
Bie ea. SAY 7 M 
mig, 24 SAY ” z 
eet SAY OFLU A a wise es 60 1s 
Meevereewooany  Srilr ie Mo. sce a we =” 
@ 14,54 SAY *SHIFT A AND B&B... 3S’ 
(Seplesee ie Site A LT 4 so wi Se se wo 4 
meee S) ClLEAR 
STURE TO resp 
@ 20,23 SAY ENTER YOUR CHOICE ==)’ GET resp 
PICTURE °9”’ RANGE 1,4 
READ 
be CASE 
CASE resp = 1 
STORE = T-° 10a 
Simere «Fe 10 6 
CAS<e resp = 2 
Se aie) be 
SoeRe 2 tent tO 


Wg) 


CASE resp 


UW} 
a 
Cc 
Al 


ENDCASE 


Lie 
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SELECT 
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STORE .F. TO again 
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SET COLOR TO W* 

Se lev co Saye 

SET CULOR Sree 
SELES 

GO TOF 

LOCATE FOR rankcede = A-> rank 
SELECT 4 

GO TOP 

LOCATE FOR speccede = A-)> spec 
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APFEND BLANK 

REPLACE rank WITH C—) rankname 
REPLACE name WITH A-> name 
REPLACE spec WITH D-> specname 
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SESE 
60 TOF 
DQ WHILE .NOT. EOF() 
DISPLAY name, rank, spec 


DO delayl 
SKIP 
ENDDO 
ENDIF 

ENDIF 

CLEAR 

50 TOP 

DELETES NEXT 108 
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Seo SAY * 
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GC TOF 
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[fe EOF (> 
ST@RE .F. TO again 
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SET COLOR TO We 
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SET COLOR TO W 
Sees 
GO TOF 
LOCATE FOR rankeode = B-) rank 
SELECT 4 
GG TOP 
LOCATE FOR speccede = H->) spec 
Slejiijeci = 
APPEND BLANK 
REPLACE rank WITH C-> rankname 
REPLACE name WITH B-> name 
REPLACE spec WITH D-)specname 
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SKIP 
END i er 
ENDDO 
CLEAR 
SPREGT So 
GO TOP 
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SET PRINT ON 
REPORT FORM lshifteb 
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SilSe 
GO TOP 
DO WHILE SNGT. EURR 
DISPLAY name, rank, spec 
DO delayl 
SKIFF 
ENDDO 
END IEE 
ENDIF 
CLEAR 
GO TOP 
DELETE NEXT 10% 
PACK 


STORE *? * TO ansr 
@ 23,28 SAY *DO YOU NEED MORE OF THE ABOVE’ 
(See eee AVAILABLE LISTS?’ 
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STORE ’N’ TO ans 
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DELETE NEXT 18 
PACK 
STORE * * TO ans 
DO WHILE UPPERCans) # 7 WN’ 
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SET COLOR TO W 
SELECT 4 
GG TOF 
LOCATE FOR rankecode = C-)drank 
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SELECT 4 
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© Tey, 25Senr ° : 
WwW 13,25 SAY 2 


SET COLOR TO Wx 


i@ 12, es SAY .’ PROCESSING IN PROGRESS’ 
SET COLOR TO W 
SLC) 1S 
GO TOP 
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See) S 
SKIP 
ENDDO 
Cie AR 
SeeECT 4 
b= printer 
Sen ering GN 
REPORT FORM Lalrt 
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ENDDO 
cCNDIF 
60 TOP 
DELETE NEXT iw 
PACK 
CLEAR 
Sureee ° ° TO ansr 


meee S Say *DO YOU WANT TO SEE GR PRINT THE LIST’ 
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DORA e. MOT. EGF <)> 
DISPLAY descr, name, rank, spec 


. 


DO delayl 
SKIP 
ENDDO 
Bim ir 
GO TOP 
DELETE NEXT iva 
PALA 
BLEAR 
SeapReE °* * TO ansr 
Mm 24,28 SAY *DO YOU WANT TO SEE OR PRINT THE LIST? 
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Condon Tam N 3/ 2-9e 74S 
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Clark Andrews I 
Clark James D 
Clane William R 
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Armout Paul G 
Acmstrong David K 
Beam Alan K 
Brondi Daniel M 
Cavalini Larry F 
Clack Andrews Il 
Clark James D 
Cline William R 
Concon Stephen J 
Condon Tam N 
Edson Alan B 
Emerson Burt F 
Ertle Aaron P 
Ecvin Josepn H 
Flamini Charles D 
Fogel Gregory B 
bGetlane Scott B 
Gorman Dennis H 
Hobson Aaron WN 
lpbel Peter J 
Ittt Thomas C 
Isola Make L 
Jattee Jay WM 
Jetterson Jack L 
Kett David b 
Knubis James P 
Kohn =noebert 
Lattle Frederik J 
Lyon Arthur B 
MaLlLl@GnsPatrick - 
Markley Daniel T 
Mart yew PrPeol J 
McPherson Jack A 
Miller @Jae 7 a1 
Nelan James H 
Newell Peet 5S 
Nezart Jerome G&G 
Nezos Fred T 


Nacholson George FR 18 
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Diane Bonita 
Pine Aromas 
Denis Carmel 
Franklin Marana 
Monroe -Marina 
29 Side Carmel 

43 PamepUtay 

1 ACropolic Salsas 
4YOQ Carmen Carmel 
44 Fane Bonita 

60 Sinex Monterey 
HS& Castor S.6alece 
41 9th Fresno 

23 Camino Marina 
32 Grove Monterey 
zz Cannery Monterey 
36 Coral Carmel 

13 Vana Monterey 

2 Franklin Fresno 
3Y Maan Sallinas 
31 Stn Monterey 

&® Acacia Salinas 
94 David Ss. senue 
10 Paso san Diego 
ll Ferest. 5S.) ta. 
44 story sallinas 
3 i4th Monterey 
Hawk Fresno 
Vista Monterey 
Jacobs Carmel 
Scatt sS. Jase 
Lake Marina 
Dexter Carmel 
Sth Calaveras 
Buna Monterey 
Paso Sallinas 
Desty Monterey 
Fox Nestor 
Franklin Marina 
Elden Gilroy 
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372-6402 
Vaca es 
375-6406 
623-3226 


- 


Page No. 2 
O67 1/7786 


Ae HAE ve Aris eS 1 


ee gee 
—_— eee eee 


—_— — eee 
—_ ee eee 


Nikola Machael E 
Newton Harold G 
FuLk Richard CG 
Wualls Terry 
Wurck Gam b&b 
Wuinn Daniel F 
Ramey Harold A 
Sabyegs (oy ]aia te Be Dare: 

Russ Randy G 
Russo James D 
Sansiveri Dan K 
sestak Timothy WwW 
Snapiro Edwin WwW 
Sorenzen Donaid M 
Steevens James F 
Sturgeon James K 
Teatily Cnris S 
Tran Make K 

Trend Ted M 

Trigo Bum F 

Unger Jett H 
Weingarten Sam F 
Walliam Robert P 
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Cruz 
Gatos 


6 Dolores 5. 
7 iter Linan. ~b. 
3 Ruska Reno 
9 Desty Moreno 

z Maple Napa 

Y bth Aromas 

2 Grove Monterey 
6 Carlos Ss. Jose 
1 Ramona Carmel 
Hmnatils  s.0 Jose 
35 Diane Monterey 
2 Fox Los Gatos 

93 8tn Monterey 

27 Rositta FP. Ace 
a0) Pines Fala Avra 


69 Lowell 5b. SO 
360 Spencer Carmel 
4Y Hotman 5S. Clara 


93 Ocean Monterey 
10 Mountain Carmel 
38 David Monterey 
3 Raver Sallinas 

3 Partnenon Carmel 
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NAME SERNU RANK SRPECLALIY DErFAR | ME 

Tally Cheaee 20734 LT. COMMANDER DECK DE Cis 
Concon Stephen J 20736 LIEUTENANT DEC kK DECK 
Emerson Burt F 20749 1st LIEUTENANT DECK Derk 
Ertle Aaron P 2075060 ENSIGN DECK DECK 
Jetterson Jack L 20756 ENSIGN DECK DECK 
Nelan James H 20/69 MASTER CHIEF PU WEAPUN SUN U SDEien 
Newell Peet 5S 207/72 MASTER CHIEF FU CORON PEA! a DEUK 
Russo James D 20785 SENIWRVCHIEr FU WEAPUN USER DEUK 
Armetrang David K 20733 SENIOR GALE PO VRADAR Use DECK 
Nezart Jerome 6G 240801 CHIEF PU RADAR USER DEG 
Trige Bums 20007 CHEE wee) SANLTARY DECK 
Lyon Arthem ee 20809 CHIEF PU Sines y DEUR 
Nicholson George R 20819 PO lst CLASS NAVIGATION DEGr 
Norton Harold G 20645 PO 2nd Class WEAPON USER DEG 
Steevens James F 246852 PU 2nd CLASS WEAPUN CUNTRUL DELIA 
Isola Mike L 20873 PO Sseemwenss WEAPUN USEK VEE 
Quack ‘sane ZOGQ90 PO Srawernss- WEAPON CONTROL DECK 
Ramey Harold A 20892 PU 2raeernss CUMMUNICATIUN DECK 
Wuinn Daniel F 20901 PU SrdgmeASs NAVIGATION DEG 
{ttt Thomas C 20916 SEAMAN WEAPUN USEK VEUn 
Wualls Terry D 20927 SEAMAN WEAPUN USER DECK 
Pulk Richeirad sf 20936 SEAMAN WEAPUN USER DECK 
Miller JeGaesl 20944 SEAMAN WEAPON (USER Vin 
Lattle Frederik J 20949 SEAMAN WREAPUN USER DEURK 
Flamini Charles D 20950 SEAMAN WEAPUN USER DEW 
Fogel Gregory B 20966 SEAMAN HEAP ON CONTROL DEG 
Clark James D 20972 SEAMAN WEAPON CONTROL DECK 
Clark Andrews I 20978 SEAMAN WEAPON CUNTRUL DECK 
Hiondi Daniel M 20995 SEAMAN WEAPUN CUNTRUL ULEUR 
Acmout Paul G 21024 SEAMAN COMMUNICATION DECK 
McPherson Jack A 21284 SEAMAN COMMUNECA TION DEURK 
Mallon Patrick F 21289 SEAMAN CUOUMMUNICATIUN DEG 
Markley Daniel T 21302 SEAMAN NAVLGATLUN DEGit 
Ssansiveri1 Dan K 213335 SEAMAN NAVIGATILUN DEGix 
Sestak Timothy W 21358 SEAMAN NAVIGATION DEGRH 
Shapiro Edwin WwW 21369 SEAMAN NAVIGATIUN DE 
Weingarten Sam FF 21346 SEAMAN RADAR USER DECK 
Tran Mike K 21409 SEAMAN SANLTARY DECGE 
Trend Ted M 21423 SEAMAN Sul la DEH 
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NAME SERNO RANK Siew i Al iy VEFAR I Pirin 
Jattee Jay M 20741 LIEUTENANT ENGINEER LAr lei 
Ervin Josepn H 20768 ENSIGN ENGINEER MACHINE 
Nezos Fred T BOv 7 7A Sl ER CHLEP POSER ECTRICIAN MACHINE. 
meegg Bill &S PU7EO MASTER CHIEF PEE@LRUN It AWM LINE. 
Appel Jonn G&G 20/7594 SENIUR CHIEF ENGINEER MACHINE 
Gorman Dennis H 2065) 7FP0 ist CLASS ENGINEER MALH TNE 
Condon Tam N 2086440 PU ist CLASS BEE kh LGC 1LAN PAC hiiria 
Peel Peter J 2Yeq7° FU 2nd CLASS BEBGU ROUNLC MACHINE 
Hobson Aaron M 206910, PU -srd CLASS ENOLNEER MALHINE 
Unger Jetf H 21438 SEAMAN ENGINEER MACH LAE 
Russ Randy G 21451 SEAMAN ENGINEER AGH hte 
Watizam Robert P 21466 SEAMAN ENGENE EK MACH LIVE 
Beam Alan K 21487 SEAMAN ENGINEER MACH LANE 
Edson Alan 8B 24869 SEAMAN ENGINEER MACHINE 
Wavealiniz Larry F 24893 SEAMAN ENGINEER MALHLINE 
Martyr Paul J 24906 SEAMAN ENGINEER MAC Hane 
Knub1ls James P 24929 SEAMAN LENOLNEER MAL FL NE. 
Konn Robert H 24951 SEAMAN ENGINEER MAG Haat e 
Sturgeon James K 24983 SEAMAN ENGINEER NACHE 
Kett David G&G 24997 SEAMAN Pebernr lLOLAN MACH ONE 
Betline Seatt 8 24998 SEAMAN REE Git lLAN MACHINE. 
Nikola Micnael E 259001 SEAMAN Beker kt CIAN MACHINE 
eane William R 290165 SEAMAN eee mon Lie MAG Eee 
Sorensen Donald NM 95124 SEAMAN BEE LRONITU MACH! NE 


Page No. 1 


06/17/86 

SUBDEPARYTMENT 3 5 cece scents eee 

SUPERY foo ee ae a ae eee 

NAME SERNU RANK SPECLALT ¥ SUBVDEPAK Tite 

Nelan James H 20769 MASTER CHIEF PU WEAPON CUNTRUL CUMBAI YN 
Armstrong David K 207353 SENTOR (CHIEF PU RADARS USE CUNBAT LNFU 
Nezart Jerome & 20E01— CHIEF “Fu RADARK USER CUMBAL INruU 
Steevens James F 208a2 PU 2nd CEASS WEAPUN. CONTROL CUMBA J. ie 
Wurck Gam G 26330) PO. Sra teen == WEAPON CONTRUL CUMNBAT tiie 
Fogel Gregory B 20966 SEAMAN WEAPON CONTRUL CUNBAT Ishi 
Clark James D 2097/72 SEAMAN WEAPUN CUNT RUL CUBA LNEU 
Clark Andrews [I 20978 SEAMAN WEAPUN CUONTRKOLW CUMNBAT LNri 
Biondi Daniel M 246995 SEAMAN WEAPON CUNTRUL CUMBA ) ae 
Weingarten Sam FF 21386 SEAMAN KADAR USER LUMBAT iNrU 
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NAME SERNUO RANK SPECIALTY SUBUDERFPAR I MEN: 
Newell Peet 5 20772 MASTER CHIEF FPO COMMUNICATIUN CoM crA)T Sens 
Ramey Harold A Zooge Fe lsrd CLASS CUMMUNICATION COMMUNILCAIL ituNS 
Armout Paul G 21024 SEAMAN ' COMMUNICATION CEMwuN tical lroNS 
Nernerson Jack A 21244 SEAMAN CUMMUNICAI LUN COMIN LAY rons 
mation Patrick F 21289 SEAMAN COMMUNICATLUN VOTO N eA ILO 
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NAME SERNU RANK SPEC LAY SUBLDEPAK I MeaN® 

Nacholson George kK 20819 PO ist CLASS NAVIGATION NAVIGAT LUN 
Wuainn Daniel F 20901 PU 3rd CLASS NAVIGATIUN NAVLGAILUN 
Markiey Daniel T 21302 SEAMAN NAVLGATIUN NAYILGA’ LUN 
Sansiveri Dan K 21335 SEAMAN NAVIGATION NAVIGATLUN . 
Sestak Timothy W 213586 SEAMAN NAVIGATION NAVIGATLUN 
Shapico Edwin WwW 21369 SEAMAN NAVIGATION NAVLGATAIUIN 
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NAME SERNU RANK SPECIALTY SWpeeie ar i Pen ! 

Rueso James D 20785 SENIOR CHIEF PU WEAPON USER WEAPUNS 
Merton Harold G 20845 PO 2nd CLASS WEAPUN USER WRKARPUNS 
{eola Make L Eve? aerensrd CLASS WEAPUN USER WEAPUNS 
iert’ Thomas Cc 20916 SEAMAN WEAPON USER WEAPUNS 
Wualls Terry D 20927 SEAMAN WEAPUN USER WERAPUNS 
Pulk Richard G 20936 SEAMAN WEAPON USER WEAPUNS 
fet ker Jacj) T 20948 SEAMAN WEAPUN USER WEAPUNS 
Littie Frederik J 20949 SEAMAN WEAPUN USER WHRAPUNS 
Flamini Charles D 20U95W SEAMAN WEAPUN USER WEAPUNS 
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Condon Tam N 
Kett David &G 
Getlaine Scott B 
Nikola Machael E 
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Ee eee N 
ELECTRICIAN 
ELECTRICIAN 


Bie 1G 
BE EC PRTC 
EEEC ke 
REE rene 
pay Fe) (| ls 


——_— 


INSTAL 
LNSiAL 
{NoOtAL 
INS VAL 
tNolAL 


Page No. 1 
Wi/i//so 


cme meme ee 
ee ee ee ee ee) 


eee eee = ee ee eo == -— em ee em eo ew oc oe — we ew ow ee oi i oe meee se 


meegg Baill 207203 MASTER CHIEF PU BEEBE TRUNIC RLEG PRN. Ear 
Ibel Peter J 20867 PU 2nd CLASS BEECTROUNIC EEE CTRUN BOBirn 
Clanée William k 25016 SEAMAN BoeGT RUN LC PERC RON ew PT 
Sorensen Donald NM 95124 SEAMAN BPEECTRENLC BEE erro N ewe tr rl 
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SUPERVISUR rar rr ea 6 i Ae 

NAME SERNO RANK SPEC LA loiay SUBUEPAK 1 Eis 

Jattee Jay M 20741 LIEUTENANT ENGINEER MAIN ENGINES 
Ervin Josepn H 20768 ENSIGN ENGINEER MALIN &NOINEDS 
Appel Jonn & 2100794 SENIOR CHYEF PU ENGIN CE, MALN BNGINES 
Gorman Dennis H 2684) fuaist “CEASS ENGINEER MAILN ENOLNEDS 
Hobson Aaron M 20520 Tee serd CLASS ENGINEER MAIN ENGINES 
Unger Jett H 21438 SEAMAN ENGINEER MAIN ENOINES 
Russ Randy OG 21451 SEAMAN ENGINEER MAIN ENGINES 
Wiliiam Robert FP 21466 SEAMAN ENGINEER MALN ENGINES 
Beam Alan K 21487 SEAMAN ENGINEER MAIN ENGINED 
Eason Alan 6B 24869 SEAMAN ENGINEER MALN ENG 
Cavalini Larry F 244893 SEAMAN ENGINEER MALN ENGINES 
Martyr Paul J 24906 SEAMAN ENGINEER MAIN ENG TNaes 
Kuba s SJiamesur 24929 SEAMAN ENGINEER MAIN ENGINES 
Konn Robert 4H 24951 SEAMAN ENGINEER MALN ENGIN 
Sturgeon James K 24983 SEAMAN ENGINEER MALN ENOINE'S 
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NAME RANK Sree Ale y 
LeillyeGhaas S LT. CUMMANDER DECK 
Emerson Burt F Petes teUTENANT.) BECK 
Jetterson Jack L ENSIGN DECK 
Nopecon. Harelda Gb FUmena CLASS WEAPUN USER 
fz2e Thomas C SEAMAN WEAPUN USELK 
PulkK Richard & SEAMAN WEAPUN USER 
Lattile Frederik J SEAMAN WEAPUN USER 
Nelan James H MASTER CHIEF PU WEAPUN CUNTRUL 
Wate k Gam G PFUumone: GLASS WEAPUN CUNT RUL 
Clark James D SEAMAN WEAPUN CUN!RUL 
B10nd1 Daniel M SEAMAN WEAPUN CUNTRUL 
Ramey Haroid A Boe sca CLASS COMMUNICATIUN 
McPherson Jack A SEAMAN COMMUNLCATIUN 
Nacholson George R PU lst CLASS NAVIGATLUN 
Markley Daniei T SEAMAN NAVIGATLUN 
sestak Tamothy W SEAMAN NAVILGATILIUN 
Arcmstrong David K SENJUR CHIrF PU RADAR USER 
Weingarten Sam F SEAMAN RADAR USER 
Tran Make K SEAMAN SANITARY 
Trend Ted M™ SEAMAN SUrPPrIEY 
Ervin Joseph H ENS ION ENGINEER 
Gorman Dennis H PU lst CLASS ENOLNEER 
Unger Jerr H SRAMAN ENOLNEER 
Witliam Robert F SEAMAN ENGINEER 
Edson Alan B SEAMAN ENGINEER 
Martyr Paul J SEAMAN ENGINEER 
Konn Robert H SRAMAN ENOLNEERR 
Nezos Fred T VAS ve nhec hehe LE Cin irC LAN 
Kett David G SEAMAN Be ew ne AN 
Nakola Maene@el E SEAMAN ELECTRICIAN 
Ibel Peter J FOUL znay CLASS ELEC) RUN LE 
Sorensen Donaid M SEAMAN PRR tion bic 
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NAME RANK SPEC TAL, 
Concon Stephen J LIEUTENANT DECK 
BErtle Aarons & ENSIGN DECK 
Russo James D SENIOR CHIEF PU WEAPON USER 
Isola Mike L PO Sed" Crass WEAPON USER 
Qualls Terry D SEAMAN WEAPON USER 
Miiler Jacj T SEAMAN WEAPON USER 
Flamini Charles D SEAMAN WEAPUN USER 
Steevens James F Pu 2neeelLASS WEAPUN CUNTRUL 
Fogel Gregory B SEAMAN WEAPON CONTROL 
Clark Andrews I SEAMAN WEAPUN CONTROL 
Newell Peet 5S MASTER CHIEF P@_ COMMUN GAT TON 
Armout Pause SEAMAN COMMUNICATIUN 
Mallon Patrick F SEAMAN COUMMNUNILCATIUN 
Wuinn Daniel F PO Gra VeebAse NAVIGATLUN 
Sansiveri1 Dan K SEAMAN NAVIGATION 
Shapiro Edwin WwW SEAMAN NAVIGATIUN 
Nezart Jerome G Corer 4F RADAR USER 
Trigo Bum F GHEE Seo SANLTARY 
Lyon Arthur B ChE ee SW ey 
Jattee Jay M LIEUTENANT ENGLNEER 
Appel John G SENIUR CHEEF PO VENG INE ET: 
Hopson Aaron M PO 3ra CLASs ENGINEER 
Russ Randy G SEAMAN ENGINEER 
Beam Alan K SEAMAN ENGINEER 
Cavalini Larry F SEAMAN ENGINEER 
Knubis James P SEAMAN ENGINEER 
Sturgeon James K SEAMAN ENGINEER 
Condon: a.m an PO let CLASS ELECTRICIAN 
Getline Scott B SEAMAN ELECTRICIAN 
Rugq Ba biges MASTER CHLEF FPG VEEECTRUNTe 
Clane Wiiiliam k SEAMAN BLEC Trane 


180 


Page No. i 


06/17/86 
Chew MALE @eATION INTO. THREE SHIFTS 
Gro ie ie “ina 

NAME RANK SPEC PAA y 
Toy SOneras S LT. COMMANDER DECK 
Ertle Aaron P ENSIGN DECK 
Norton Harold G puma CLASS WEAPUN USER 
Buailts Terry D SEAMAN WEAPUN USER 
Littie Frederik J SEAMAN WEAPUN USER 
Steevens James F Punena CLASS WEAPUN CONTROL 
Clark James D SEAMAN WEAPON CONTRUL 
Newell Feet 5 MASTER CHIEF FO COMMUNICATIUN 
McPherson Jack A SEAMAN CUMMUNICATILUN 
Wuinn Daniel F PO 3rd CLASS NAVIGAT LUN 
Sestak Tamothy W SEAMAN NAVIGATIUN 
Nezart Jerome b&b GCHIEF FPO RADAR USER 
Tran Mike K SEANAN SANITARY 
Jattee Jay M LIEUTENANT ENOLNEERR 
Gorman Dennis H P@mbeae CEASS ENGOLNEER 
Russ Kandy 6 SERAMAN ENGOLNEER 
Edson Alan 5B SEAMAN ENOLNEER 
Knubis James P SEAMAN ENGINEER 
Nezos Fred T MASTER CHIEF PO ELECTRICIAN 
Setiiame= Scott B SEAMAN Pie hie tAN 
Ibel Peter J FPuaenad CLASS ELECTRONIC 
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Concon stephen J LIEUTENANT Dee ih 
Jetterson Jack L ENSIGN DECK 

Isola Mike L PO Srey class WEAPON USER 
Pulk Rachard G SEAMAN WEAPON USER 
Flamini Charles D SEAMAN WEAPUN USER 
Wuick Gaim G in) Sheol Ub ayes WEAPON CUNSRUL 
Clack Andrews I SEAMAN WEAPUN CUNTRUL 
Ramey Harold A PO Seer CLASS COMMUNICATION 
Mallon Patrick F SEAMAN COMMUNICATION 
Markley Daniel T SEAMAN NAVIGATION 
Shapiro Edwin W SEAMAN NAVIGATION 
Weingarten Sam F SEAMAN RADAR USER 
Lyon Ar thie Chile ro SURE EY 

Ervin Joseph H ENSIGN ENGINEER 
Hobson Aaron M PU Sra aerass ENGINEER 
William Robert P SEAMAN ENGINEER 
Cavalini Larry F SEAMAN ENGINEER 

Konn Robert H SEAMAN ENGINEER 
Condon Tim N PG ist. CLASS PEECTRLC LAN 
Nakola Michael E SEAMAN ELEC] RiGagan 
Clane William kR SEAMAN ELECTRONIC 
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Emerson Kurt F 
Russo James D 
fttt Themes C 
Maller Jac) T 
Nelan James H 
Fogel Gregory 5B 
Biondi Daniel M 
Aemoeut Pawel b 
Nicholson George R 
Sansiver1 Dan K 
Acmstrong David K 
tnagowawm F 
Trend Ted mM 
Appel Jonn & 
Sage: Jett H 
Beam Alan K 
Nameyr rFaul J 
Sturgeon James K 
Kett David G&G 
Ruggapwl dt S 
sorensen Donald M™ 
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COMMAND UFFICER 
NAVIGATOR 
NAVIG. RADAR 
HELMSMAN 

HP BRIDGE COMm. 
UHPF BRISBEE eur 
LEFT WBSE ci 
RIGHT UBSEK yok 
CIC SUPERY [Ste 
AIR RADAR 
SURFACE RADAR 
TRACK RADAR 

CiC COMMUNECAT. 
CENTR WEAP CONT 
GUN Sl Genseglee 
31 ANMUBSURr rt 
GUN 32 CUNSULE 
32 ANNE SSPE rL 
GUN 33) C@NSWiE 
33 AMMO VSUe res 
TURPEDOSTUBret 
TURPEDO iii. 
So MISS Gee See 
TECET ee 

TELE Gye eee 

HF COMMUNTCAT 
SURG ROOM SUPER 
SURG GRBUnS 
ENG UCONTE 
MAIN ENO1 
MAIN ENGI 
MAIN ENG2 
MAIN ENG2 
ELECTR GENERA: 
ELECTR GENERA 
ELECTR GENERA. 
DISTR PASE Ea 
DISTR GABLES 
DAMAGE CUNTRULI 
DAMAGE CONTROL2 
DAMAGE CONTROLS 
RADIO ROOM SUP 
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URGANIZATLUN DURING SURFACE ALERT 


TaltyetCnhrre=s 
Ertie Aaron P 
Weingarten Sam 


FE 


Nachnolson beorge R 


Ramey Harold A 
Acmout Paul G 
Markley Daniel 
Sansiveri Dan K 


Concaon Stephen J 


Nezart Jerome lb 
Acmstrong David 
Wuaick Gaim b&b 
Lyon Arthur B 
Emerson Burt F 
Norton Harold G 
fitec  (hemas we 
Russo James D 
Qualls Terry D 
leola Mike 
Puree rtenard lt 
Fogel Gregory 5 
Clark James D 
Clark Andrews I 
Newell Peet 5S 


McPnerson Jack A 
Mallon Patrick F 


To2gqe- Bum ck 
Tran Mike K 
Jattee Jay Mm 
Gorman Dennis H 
Unger Jert H 
Hobson Aaron M 
Russ Randy G 
Kett Davad & 
Getlane Scott B 


Nikola Michael E 


Nezos Fred T 
Condon Tam N 
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